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MATEMATICA 
CRESOM 



C0M0ASC0 1 SASCRESCEM 
SUPERFICIE E VOLUME 



PROBLEMAS ESTRUTURAIS 





RA ZAO DE CRESCIMENTO 
NUMEROS DE FIBONACCI 



Os computadores tern sido utilizados 
no estudo dos mais diversos aspectos 

da nature za, Veja aqui como 

eles podem nos ajudar a compreender 

o fenomeno do crescimento. 



O emprego de computadores na ana- 
lise das situacoes relacionadas a nossa 
realidade nao se limita is coisas inani- 
madas. Ao contrario, a maquina tern se 
mostrado de grande utilidade no estu- 
do do comportamento dos organismos 
vivos. Ocorre que a matematica esta in- 
timamente associada a natureza — nas 
fornias mais inesperadas. E, sempre que 
ha uma conexao com a matematica, os 
computadores podem ajudar a com- 
preender o que se passa, efetuando cal- 
culos e indicando resultados, 

Neste artigo, examinaremos algumas 
maneiras de se utilizar computadores na 
anaiise do crescimento dos organismos, 
Todas as formas vivas sao capazes, em 
algum estagio do seu desenvolvimento, 
de mudar de tamanho, numero on for- 
ma. Apenas as duas primeiras situacoes 
serao tratadas aqui, juntamente com ou- 
tros exemplos de inter-relacao entre a 
natureza e a matematica. 



COMO AS COISAS CRESCEM 



O crescimento — mudanca de tama- 
nho — envolve a formacao de novos 
materiais de estrutura. Tanto plantas 
quanto animais obtem a materia-prima 
necessaria para isso do seu meio ambien- 
te. Mas o crescimento geral de um ser 
pode se dar de duas maneiras: pela mul- 
tipucacao do niimero de celulas (por 
meio da divisao celular) ou pelo aumen- 
to do tamanho das celulas. 



MEDIDAS 



Tendo em vista essa diferenca, resta 
saber como medir o crescimento. E: me- 
Ihor medir o peso, como se faz com os 
bebes, ou a aitura, como se faz com as 
criancas maiores? Ou seria o volume a 
medida mais adequada? Ou a superff- 




cie do corpo? Nlo ha uma resposta tini- 
ca para tais questdes, pois seres diferen- 
tes exigem tipos de medida diferentes. 
Pordm, sempre e interessante comparar 
medidas diversas quando se estuda o 
crescimento. 

As medidas rnais significativas para 
animais sao as de volume (ou peso) e su- 
perficie corporal. Essas medidas nao au- 
mentam no mesmo ritmo, enquanto o 
animal cresce, o que tem conseqiiSncias 
importantes, ja que o tamanho e a for- 
ma de urn ser estao muito ligados a seu 
modo de vtver. 

Como vimos no artigo da pagina 434, 
a area 6 uma medida quadratica e o vo- 
lume, uma medida ciibica — isso expli- 
ea a diferenca de velocidade que se re- 
gistra no aumento dessas duas medidas. 
A relacao entre ambas podera ser me- 
Ihor compreendida se tomarmos como 
exemplo uma forma regular como um 
cubo. O programa a seguir mostra o que 
acontece com o volume e a area de cu- 
bos que tenham diferentes tamanhos. 
Digite-o e execute-o. 



10 GOSUB 180 

20 LET X-45: LET 

30 LET S=Z 

4 GOSUB 140 





10 GOSUB 180:CLS 

20 X-45:Y-156 

30 S-2 

40 GOSUB 140 

60 SA-6*S*S:VO-S*S*S 

70 PHINT-TAMANHO- , ;S;TABa2) ;"P 

ROP.AREA/VOL-"; : PRINT USING**. I 

|:l";SA/VO:PRINT 

80 INPUT'DIGITE O TAMANHO DO CU 

BO £1-20) "iA: IF A<3 GOSUB ISO 

90 S-A 

100 IF A<1 OR 3>20 THEN B0 

110 X-X+S*7.5+5 

120 IF X+S*7.5>255 GOSUB 180:X» 

45 

130 GOTO 40 

140 SCREEN 1,0 

150 DRAU"BM" + STR${INT(X})+'\*+S 

TRS ( INT < Y) ) +"S"+STRS ( INT (S*3) ) + 

"C1E2NR6U6C4R6G2L6NE2D6R6NU6E2U 

6" 

160 IF INKEYSO" " THEN 160 

170 RETURN 

ISO PHODE 3tPCLS2 

190 RETURN 



fffi 



10 GOSUB 180:CL3 

20 X=45:Y=156 

30 3=2 

40 GOSUB 140 

60 SCREEN0:SA«6*S*S:VO-S*S*S 

70 PRINT"TAMANBO=-;S;TABU5) ;"S 

UP/VOL-" ; :PRINTUSING"#.4I:1" ;SA 

/VO : PRINT 

80 INPUT'TAMANHO DO CUBO? (1"20 

]*;A:IF A<S THEN GOSUB 180 

90 S-A 

100 IF A<! OR A>20 THEN 80 

110 X=X+S*7.5+5 

120 IF X+S*7.5>255 THEN GOSUB 1 

B0:X-45 

130 GOTO 40 

140 SCREEN2 

150 LINE <X.Y)-(X+5*S,Y-S*S) .8, 

B 

160 X-X+2*S:Y»Y-2*S:LtNE (X.Y)- 

(X+5*S,Y-5*S) ,8,B 

165 LINE tX,Y)-tX-2*S,Y+2*S) .8: 

LINE <X+5*S,Y)-(X+,1*S,Y+2*S) ,8: 

LINE (X+5*S,Y-5*S)-£X+3*S.Y~3*S 

),8:LINE CX,Y-5*S)-(X-2*S,¥-3*S 

) ,B:Y-I56 

170 IF INKEY3-"" THEN 170 ELSE 

RETURN 

180 SCBEEN2 

190 RETURN 



a\\s\ 



10 HOME : GOSUB ISO 
20 X - 45:Y - 156 



30 S - 2 

40 GOSUB 140 

60SA-6*S*S:VO-S»S* 

S 

70 VTAB 21: CALL - 95B: PRINT 
"TAMANHO - "{S: PRINT "RAZAO S 
UP/VOL - ";8A / VO|":l" 
60 INPUT "TAMANHO DO CUBO (1-2 
0)? ";A: IF A < S THEN GOSUB 1 
80 

90 S - A 
100 IF A < 1 OR S > 20 THEN 80 

110 X - X + S * 7.5 + 5 

120 IFX+S*7.5> 255 THEN 

GOSUB 180 :X = 45 
130 GOTO 40 

140 HPLOT X,YTOX+5*S.YT 
OX+S*5.Y-S"5TOX,Y- 
5 * S TO X,Y 
150 U = ABS (U - 1); IV U THEN 

X = X + 2 * S:Y = Y - 2 * 3: G 
OTO 140 
160 HPLOT X,YT0X-2*S,¥+ 

2 * S: HPLOT X+5*S,YTOX 
+3*S,Y+2*S: HPLOT X + 5 
* 3,1 - 5 * 3 TO X + 3 » 3 J - 
3 * Sr HPLOT X,Y-5*STOX- 

2 * S.Y - 3 * S 
170 Y - 156: RETURN 
180 HGR ; HCOLOR- 3: RETURN 

O programa pede ao usuario que es- 
colha um mimero para a aresta (a me- 
dida de uma quina a outra) do cubo. Em 
seguida, desenha a figura na tela e mos- 
tra a razao entre area e volume. Come- 
ce com um cubo pequeno — quatro uni- 
dades de aresta, por exemplo — e va au- 
mentando o valor fornecido ao compu- 
tador para simular um crescimento. Vo- 
ce" verl que, a medida que o cubo se tor- 
na maior, a razao entre area e volume 
diminui. Em outras palavras, o volume 
aumenta mutto mais rapidamente que a 
superficie do corpo. 

Grande parte da listagem esta desti- 
nada a forrnatar a tela e desenhar os cu- 
bos. Assim, vamos nos deter na linha 
60, cujo conteudo nos interessa de ma- 
neira mais direta. 

Sea aresta do cubo, A area de um 
lado €, portanto, S*S e a superficie do 
cubo todo (ele tern seis lados) e 6*S*S. 
O volume i S ao cubo, ou S*S*S. A ra- 
zao entre as duas medidas corresponde 
ao resultado da divisSo da superficie pe- 
lo volume. Por exemplo, quando S e 
igual a 2, a razao e 6*2*2 dividido por 
2*2*2, que da 3:1. Se dobramos o tama- 
nho da aresta, temos 6*4*4 dividido por 
4*4*4, que da 1,5:1 — ou seja, a area 
t relativamente menor. 

Como animais nao tem forma de cu- 
bo, e provavel que queira adaptar o pro- 
grama para torna-lo mais prOximo da 
realidade. Pequenos animals, como os 
camundongos, sao melhor representa- 
dos por uma esfera, enquanto seres hu- 



manos lembram mais um conjunto de 
cilindros — um para o tronco e outro 
para cada membro. No primeiro caso, 
precisamos conhecer a superficie e o vo- 
lume da esfera. A superficie e 
4*Pl*ralo 2 e o volume, 4/3*Pl*raio\ Ja 
a area de um cilindro e 2*PI*raio*alturn 
mais 2*PI*raio z e o volume, PI*raio z * 
altura. 

Seja qua! for a forma escolhida, o 
principio geral e o mesmo e, em todos 
os casos, o volume cresce mais rapida- 
mente que a superficie. 



CRESCIMENTO E VIDA 



Essas relacoes matematicas sao mui- 
to importantes no Reino Animal, afe- 
tando as atividades e o habitat do ser em 
questao. Tomemos como exemplo o ra- 
to: ele tem um volume pequeno e, por- 
tanto, uma area relativa grande. Isso 
signiftca que seu corpo irradia calor ra- 
pidamente (dependendo do ambiente em 
que se encontra). O rato consegue 
manter-se aquecido produzindo energia 
pela queima de alimento. Ora, graeas a 
velocidade com que perde calor, ele pre- 
cisa ingerir alimentos em quantidade 
equivalente a metade do seu peso. 

Um elefante, em contrapartida, tem 
um volume muito grande em compara- 
cao com sua superficie corpo; al. Por- 
tanto, mantidas as proporcoes, ele irra- 
dia menos calor que o rato, e sobrevive 
com uma quantidade menor (em relacao 
ao seu peso) de alimentos diarios. Isso 
explica por que animais grandes se adap- 
tam melhor ao clima frio dos p61os, on- 
de a comida e escassa. 



LIMITE DE TAMANHO 



A relacao entre massa e superficie 
ajuda a explicar por que animais e plan- 
tas nao crescem alem de certo tamanho. 
Dadas as proporcoes de uma determi- 
nada especie, ha um limite definido pa- 
ra as dimensdes que ela pode alcancar. 
Esse limite e imposto pelo peso que os 
ossos do animal podem suportar. 

Quando seu tamanho — isto e, altu- 
ra, comprimento e largura — dobra, o 
peso cresce oito vezes, mas a area de su- 
porte dos ossos cresce apenas quatro ve- 
zes, Se os ossos sc dcsenvolvesscm o su- 
ficiente para sustentar o novo peso, fi- 
cariam desproporcionalmente finos em 
relacao ao tamanho do animal. Em de- 
terminado ponto do seu crescimento, o 
animal estaria tao desajeitado que nSo 
conseguiria se mover. 




Volumes e superficies: grafico comparative. 



Alteracoes da tana de crescimenio de uma planta. 



Se urn rato atingisse o tamanho de 
um elefante, mantidas as mesmas pro- 
porcoes iniciais, suas pernas seriam in- 
capazes de suporta-lo. Isso explica por 
que especies de tamanhos diversos tern 
proporcdes tao diferentes. 

O maior animal terrestre — o elefante 
— chega a pesar cerca de 10 toneiadas. 
Um dinossauro podia alcancar 80 tone- 
iadas, mas ficava a maior parte do tem- 
po imerso na agua. Os animais niariniios 
contam com o suporte da agua, o que 
amplia os limites de seu tamanho. Ba- 
leias azuis lem peso superior a 150 to- 
neiadas e medem mais de 30 metros de 
comprimento. Naturalmente, nao have- 
ria pernas que fossem capazes de susten- 
ta-las fora da agua. O limite de seu cres- 
eimento, assim como dos demais ani- 
mais marinhos, esta mais relacionado a 
perda de calor. 



RAZAO DE CRESCIMENTO 



O programa a seguir mostra a velo- 
cidade de crescimento de uma planta, do 
plantio a maturidade, quando ela che- 
ga a seu limite de tamanho. 

A planta cresce devagar no infcio, e 
rapidamente depots. Atingindo seu limi- 
te de tamanho, volta a se desenvolver 
bem devagar, ate parar ou, eventual- 
mente, morrer. Digite e execute o se- 
guinte programa: 



10 DIM GUI) 

20 DATA 2.9,22.35,58,92,104. 

112,115.117.118 

30 FOR N=l tO 11: BEAD G (N) : 
NEXT N 



40 BORDER 0: PAPER 0: INK 4 : 

CLS 

50 LET X=60: LET Y-10 

60 DRAW 80,0 

70 PLOT 30,0: DRAW INK 7;0, 

168 

60 PRINT INK 2; AT , 1 [ "ALTUR 

h" 

90 FOR N=0 TO 13B STEP 12 
100 PLOT INK 7 j 30,11 
110 DRAW INK 7; -5.0 
120 NEXT N 

130 PRINT AT 20,0!"2"iAT 17, Of 
"6";AT 14,0,"10*;AT ll,0i"14"; 
AT 8,0; "20"; AT 5,0; '24" 
140 PLOT 160,0: DRAW INK 7;0, 
168 

150 PLOT 160,0: DRAW INK 7 j 95 
i.O 

160 PRINT AT 0,17; INK 6;"TAXA 

DE";AT 1,15; "CRESCIMENTO" 
170 LET Ol 
180 LET GX=161 
190 LET GY-1 
200 FOR N-l TO 117 
210 IF 0(C) ON THEN GOTO 250 
220 PLOT X,Y: DRAW 9, 9, PI/2: 
DRAW -9, -9, PI/2 
230 DRAW -9, 9, PI/2: DRAW 9,-9, 
PI/2 

240 LET GX«*GX+8: LET GY = 1 : LET 
C=C+1 

250 PLOT X,Y 
260 FOR K-0 TO 3 
270 PLOT INK 5;GX,GY+K: DRAW 
INK 5:8,0 
280 NEXT K 
290 LET GY-GY+4 
300 LET Y-Y+l 
310 NEXT N 
320 FOR Y=117 TO 140 
330 PLOT X.Y 
340 NEXT Y 

350 FOR R=l TO 10 STEP .3 
360 CIRCLE INK 6;X.Y,R 
370 NEXT R 
380 GOTO 3B0 



D 



20 DATA 2.9,22.35,58,92,104,112 
.115,117,118 

30 FOR N-0 TO 10:READ G(N):NEXT 

40 PMODE 3 :PCLS: SCREEN 1,1 

50 X-60:Y-190 

60 LINE {8,23)-<8.192) ,PSET:LIN 

E- {80, 192) .PSET 

60 DRAW"BM20,6S24C7D2BRUNLUBR2L 

DNRDRBRU2BR2LD2RUS8NLS24BED2BRU 

NLUBRS16RND3RC8" 

90 FOR N-47 TO 191 STEP 12 

100 LINE (2,N)-(8,N) .PSET 

120 NEXT 

140 LINE (158,23)- (158,191) ,PSE 

150 LINE -(255,191) .PSET 

160 DRAWBM176.6C6S24LD2RUS8NLS 

24BEND2RDLFBRNU2RU2LBR2D2EFU2BR 

516RND3RS24BRD2BRUNLUBM182 , 24ND 

2RDLFBRU2RDNLDS16BR2U3LR2S24BR2 

LDNRD'R" 

170 GX=161:GY-190 

190 COLOR 6, 7 

200 FOR N=l TO 117 

210 IF G(C)>N THEN 250 

220 CIRCLE(X.Y-4) ,15,6, .4,0, .5 

230 CIRCLE (X-1G.Y) ,16,6, .4, .75. 

1: CIRCLE CX+16.Y) , 16,6, . 4. . 5 , . 75 

240 GX-GX+8:GY-190:C-C+1 

250 PSETIX.Y.6) 

260 FOR K-0 TO 3 

270 LINE(GX r GY-K)-(GX+8,GY-K) ,P 

RESET 

260 NEXT 

290 GY-GY-4 

300 Y-Y-l 

310 NEXT 

320 FOR Y=75 TO 58 STEP -1 

330 PSET (X,Y,6) 

340 NEXT: POKE 178.54 

350 FOR R=l TO 15 

360 CIRCLE (X.Y) ,R, .8 

370 NEXT 

380 GOTO 380 




Kegra de Fibonacci para urn retSngulo bem proporcionado. 



Umi explosao populations! de coelhos. 
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20 DATA 2. 9,22.35.5a, 92, 104, 112 

,115, 117, 118 

30 FOR N-l TO 10:BEAD G(N):NEXT 

40 COLOR 2,15,15 :SCREEN2 

50 X-60:Y-190:PI-3.1416 

60 LINE (B,23)-(8,192) :LINE -(8 

0,192) 

90 FOR N-47 TO 191 STEP 12 

100 LINE (2,N)-(8,N) 

120 NEXT 

140 LINE C158,23)-(158,191) ,8 

150 LINE -(255.191) ,8 

170 GX-161:GY«190 

200 FOR N-l TO 117 

210 IF G(C)>N THEN 250 

220 LINE{X,Y)-(X+10,¥-5) :LINE{X 

,Y)-{X-10,Y-5) 

240 GX»GX+8:GY-190:C-C+1 

250 PSET{X,Y) 

260 FOR K=l TO 3 

270 LINE{GX,GY-K)-(GX+8,GY-K) ,8 

280 NEXT 

290 GY-GY-4 

300 Y-Y-l 

310 NEXT 

320 FOR ¥=75 TO 58 3TEP-1 

310 PSET(X.Y) .6 

34 NEXT 

350 FOB R-l TO 14 

360 CIRCLE(X.Y) ,R,16-R, . , .8 

370 NEXT 

380 GOTO 380 



HIE] 



20 DATA 2,9,22,35,58.92.104,1 

12,115,117,118 

30 FOR N • 1 TO 10: READ G(N): 

NEXT 
40 HOME : HGR ! HCOLOR= 3 
50 X ■ 60 :Y » 156 
60 HPLOT B,2 TO 8.158 TO 80,15 



80 VTAB 21: PRINT " TAM DA PL 

ANTA-." VEL DE CRESCIMENTO" 

90 FOR N - 11 TO 155 STEP 12 

100 HPLOT 2,N TO 8.N 

120 NEXT 

140 HPLOT 156,2 TO 158.156 TO 

255.156 

170 GX - 161 :GY - 156 

200 FOR N - 1 TO 117 

210 IF G(C) > N THEN 250 

230 HPLOT X,Y TO X + 10, Y - 5: 

HPLOT X.Y TO X - 10, Y - 5 
240 GX - GX + 8:GY - 156:C - C 
+ 1 

250 HPLOT X.Y 
260 FOR K = 1 TO 3 
270 HPLOT GX.GY - K TO GX + 8. 
GY - K 
280 NEXT 
290 GY * GY - 4 
300 Y - Y - 1 
310 NEXT 

340 CX « X:CY = Y - 15 : Rl = 13: 
R2 = B: HPLOT CX + R.CY 
350 FOR A - TO 6.28 STEP .1 
360 HPLOT TO CX + Rl * COS ( 
A),CY - Rl * SIN {A): HPLOT T 
CX + R2 * COS (A),CY - R2 * 

SIN CA) 
370 NEXT 

O programs mostra graficamente o 
que acontece com a planta. Os dados da 
linha 20 equivalem ao tamanho da plan- 
ta, medido a intervalos regulares, Sao 
usados tanto no desenho da flgura quan- 
to no tracado do grafico que mostra a 
velocidade de crescimento. 

A rotina da linha 200 a 310 encarre- 
ga-se do desenho da planta. Os eixos e 
escalas do grafico sao definidos nas li- 
nhas 40 a 160, enquanto o tracado das 
barras e feito pelas linhas 260 a 280. A 
flor, finalmeme, e desenhada pelas li- 
nhas 350 a 380. 

Como o grafico deixa claro, o cres- 



cimento da planta e lento no principio, 
acelerando em seguida, ate perder, de 
novo, a velocidade. Os dados foram re- 
tirados de um experimento real que me- 
diu o crescimento da area de uma folha 
de um pepineiro. Os mesmos valores po- 
dem ser usados para avaliar o crescimen- 
to de toda a planta. 



GERAC6ES E NUMER0S 



Quando se acasalam, os animals mul- 
tiplicam-se, dando origem a varias ge- 
racoes. Tomemos o caso dos coelhos. 
Um par de coelhos — primeira geracao 
— produz um novo par. Este forma a 
segunda geracao. O casal initial produz 
mais um par e a segunda geracao passa 
a ter dois pares. Como veremos adian- 
te, uma serie de mimeros representan- 
do geracoes pode ser como se segue: 
1,1,2,3,5,8,13,21 etc. O prdximo pro- 
grama mostra graficamente como o nu- 
mero de coelhos cresce com o passar do 
tempo. 



10 BORDER 0: PAPER 1: INK 7: 

CLS 

20 FOR N«0 TO 7: READ A: POKE 

USR "a"+N.A: NEXT N 

30 FOR N-0 TO 7: READ A: POKE 

USR "b"+N,A: NEXT H 

40 LET C3-" 



SO LET A3-CHR3 144: LET B3» 

CHRS 145 

60 PAPER 0: CLS : PAPER 1 

70 FOR N-l TO 6: PRINT C5 " ! 

NEXT N 

80 PRINT INK 5; AT 0,0; "GER* 



)GMMACAOBASI 



P 



■ p ■ n m i p m 1 m * p * J » * vpf-jP p i ■* j *r ■ Fffcif 

90 FOB N-l TO 20 
100 IF N>1 THEN FOR P-l TO 10 
: SOUND .01.P: NEXT P 
110 HEAD X,Y: PRINT AT Y,XiA»; 
AS: AT Y+1,X;BS;BS 
120 NEXT N 
130 FOR N-l TO 20 
140 READ X.Y.XX.YY: PLOT X,Y: 
DRAW INK 4;XX,YY 
ISO NEXT N 

160 PRINT AT 18,2; INVERSE 1;" 
ARVORE GENEALOGICA - COELHOS" 
170 INK 6: INVERSE 1: PRINT " 
GERACAO : 1 2 3 4 

5" "PARES : 1 1 2 

3 5 8" 
160 GOTO 180 

190 DATA 144,80,48,28,52,62.62 
,24,60,126,118,120.126,254.252 
,63 

200 DATA 16.0.16,3.22,6.11,6. 
16,9,6,9,11,12,25.9.22,12.3,12 
,6.15,14,15,16,12.28,12.26.15. 
2,15,10.15.18,15.22,15,30,15 
210 DATA 136,159,0,-7,144,159, 
32,-31,128,135,-34,-7,136,135. 
0,-31,164,112,0,-31.192,112.8. 
-8.88,111.-25,-7,96,111,0,-31 
220 DATA 48.87,-10,-7,56,87.0, 
-31,24,63,-5,-7.90.63,-8,-7, 
128,87.-8,-8,120,79,0,-23,136, 
87,0,-7 

230 DATA 144,63,7,-7,184,63,0, 
-7. 208, 88, 0,-31, 216, 8B, 7,-7, 
240.63.7,-7 

il 

10 PMODE 3:PCLS:DIM R(9) 

20 SS«PEEK(186)*256+PEEK(187! 

30 FOR K-SS TO SS+480 STEP 32 

40 READ A.BrPOKE K,A:POKE K+l.B 

SO NEXT 

60 GET (2,0)-(13,15) ,R,C 

70 PUT(14,0)-(25,15) ,R,PSET:GET 

(2,0)-(25.15).R,O 

80 PCLS4: SCREEN 1,0 

90 COLOR3: FOR K-0 TO 5 

100 LINE CO, 32*10 - (255. 32*K+24) 

.PSET.BF 

110 NEXT 

120 COLOR l:FOR N-l TO 20 

140 READ X.Y:PUTCX.Y}-{X+Z3.Y+1 

5} ,R,PSET 

150 IF N>1 THEN PLAY"01T50CCEFG 

AB" 

160 READ X.Y,XX,YY:LINE(X.Y)-(X 

X.YY) ,PSET 

170 NEXT 

180 GOTO 180 

190 DATA 169,170,153.170,165,17 

0. 169. 90, 165, 154, 165, 66, 15, 90,1 

69.106 

200 DATA 169,106,165,90,165,154 

,165,106,165.106,149.106.149,10 

6,165,90 

210 DATA 114, 7, 124. 24, 124, 38, 11 

4.39,113,56,69.70,59.71,138,23, 

178,68,171,71,5 7,89,42.100,31,1 

03 

220 DATA 124.57,124,101,115,103 



.195,87,208,101,199,103 

230 DATA 29,120,12,133,3,135,66 

,89,68,133,59,135,124,121.124,1 

33,115,135 

240 DATA 180,89,180,133,171,135 

.22 2.120.234,133,225,135,12,153 

.12,165,3.167 

250 DATA 40,121,42,165,33,167,6 

8,153.72,165,63,167,113,120,98, 

165.93.167,124,153,144,165,137, 

167 

260 DATA 178.153.176,165,167,16 

7.2 08,121,206.165.197.167,234,1 

53.234,165,225,167,124,70.124.7 





8,153,72,165,63,167,113,120,96, 

165,93,167, 124,153,144,165.137, 

167 

260 DATA 178,153,176.165.167,16 

7. 208.121.206.165. 197,167,234,1 

53,234.165,225,167,124,70,124,7 





aiE] 



m 



5 CLEAR 5000 

10 COLOR 4.15,15:SCREEN2 

60 AS-"S4F)D1L2BF1R3G1L1D1R1F1L 

3D1.R3" 

90 FOR K=0 TO 5 

100 LINE (Q,32*K)- (255. 32*K+24) . 

2.BF 

110 next 

120 FOR N=l TO 20 

140 READ X, Y:PRESET(X. Y) :DRAWX 

AS;" : PRESET (X+15.Y) : DRAWXASs " 

160 READ X,Y,XX,YY:LINE(X,Y)- (X 

X.YY) .8 

170 NEXT 

180 GOTO 18 

210 DATA 114.7,124,24,124,38,11 

4,39,113,56,69,70,59,71,138,23, 

178,68,171, 71 .57.89,42.100, 31.1 

03 

220 DATA 124,57.124,101,115,103 

.195,87,208,101,199,103 

230 DATA 29,120,12,133,3,135,68 

.89,68.133,59. 135,124,121.124,1 

33.115,135 

240 DATA 180,89,180,133,171,135 

,22 2,120,2 34.133.225,135.12.153 

.12,165.3.167 

250 DATA 40,121,42,165,33,167.6 



10 HGR2 : HCOLOR- 3 

20 DATA 1,0,4,0,60,60,28 

1,193.193,43.53.55,53.54,5 

53.63,63,46,173.27.54,45,4 

63,63,46,4 5,53.63,55,45.53 

2,63.60,7.0 

30 P - 233: POKE P 

P.97: SCALE- 1: ROT 

40 FOR I - 24832 TO 24874 

D C: POKE I,C: NEXT 



l.O: 





.109, 
5,45, 
5,62, 
,63,6 

POKE 

: REA 



90 


FOR K - 


TO 


5 






100 

K 
110 


HPLOT 


0,30 * 


K TO 255 


30 * 


NEXT 










120 


FOR N 


- 1 TO 


20 






140 


READ X 


,Y: DRAW 1 


AT X 


Y: D 


RAW 


1 AT X 


f 15, Y 








160 


READ X 


. Y , XX . YY : 


HPLOT 


X,Y 


TO XX, YY 










170 


NEXT 










190 


DATA 


114,7 


,124 


,24.124 


.114 


,39,113 


.56,69 


,70. 


59,71 


138, 




23,178,68,171.71.57.89.42,100,3 

1.103 

200 DATA 124,57,124.101,115.1 

03,195.87,208.10] ,199,103 

210 DATA 29,120.12.133,3,135 

, 68 , 69 , 68 . 1 33 . 59 , 135 , 1 24 , 12 1 , 12 

4.133,115.135 

220 DATA 180.89,180,133,171, 

135.222,120,234,133,225,135,12. 

153.12,165,3,167 

230 DATA 40.121,42,165.33.167 

,68,153,72,165,63,167,113.120.9 

8 , 165 , 93 . 167 , 124 . 15 3 . 144 , 165 . 1,3 

7,167 

240 DATA 178.153,176,165.167 

,167.208.121,206,165,197.167,23 

4,153,234,165.225,167.124,70,12 

4,70 

O programa comeca criando o UDG 
para o coelho, a partir das linhas de da- 
dos (190 e 200). As linhas 60 a 1 10 (40 
a 80, no Spectrum) desenham barras na 
tela para separar cada geraeao. A secao 
seguinte do programa, que vai ate a li- 
nba 1 80, imprime os coelhos e as linhas 
que ligam as geracSes. Os dados que de- 



finem as linhas e posicoes sao lidos da 
linha 210 em diante. 

A medida que os organismos se mul- 
tiplicam, eles se espalham e colonizam 
outras areas. Um bom exemplo 6 a ma- 
neira pela qual as bacte>ias se reprodu- 
zem. Computadores rambem podem ser 
usados para representar esse tipo de ex- 
pansao. Existem jogos interessantes ela- 
borados a partir dessa ideia. Voce en- 
conirara um deles, o Jogo da Vida, na 
pagina 961. 



NUMEROS DE FIBONACCI 



A serie de numeros mencionada an- 
teriormente — 1,1,2,3,5,8,13,21 etc. — 
apresenta algumas propriedades que po- 
dem ser observadas na natureza e em 
obras de arte. r5 conned da como " nii- 
meros de Fibonacci" desde o seculo 
XIII, quando o maternatico italiano a 
descreveu. Cada numero dessa serie cor- 
responde a adicao dos dois anteriores. 



Uma propriedade interessante pode 
ser observada tomando-se quaisquer tres 
numeros em seqiiencia. Multiplique o 
primeiro pelo ultimo e compare o resul- 
tado com o quadrado do numero do 
meio. A diferenca sera sempre 1. Tome- 
mos os numeros 5, 8 e 13: 5 vezes 13 da 
65 e 8 ao quadrado, 64. 

Dividindo cada numero pelo da direi- 
(a, obtemos uma serie de fracoes que se 
relacionam a natureza e a arte. Desco- 
briu-se, por exemplo, que tiem todas as 
formas retangulares sao igualmente 
agradaveis de se olhar. Algumas pare- 
cem muito estreitas, outras muito largas. 
O retangulo de melhor aparencia tern 
uma relacao especial entre altura e lar- 
gura, conhecida como a "razao de ou- 
ro". Essa razao e igual a (sqr (5) - l)/2, 
cujo resultado e 0.6180. Se voce calcu- 
lar qualquer das fracSes de Fibonacci, 
vera que, quanto maiores os numeros 
usados, mais elas se aproximam da ra- 
zao de ouro. Por exemplo, 8/13 e igual 
a 0,6154; 13/21, a 0,6190 e 21/34, a 
0,6176. 

Experimente agora o prbximo pro- 
grama. Ele desenba retangulos de dife- 
r ernes tamanhos, de maneira que voce 
mesmo podera julgar quais os melhores. 




1 



iumao basic ss 



10 DIM F<12) : DIM D(14) 

20 LET DUJ-1: LET D<2)-1 

30 FOR N-3 TO 14 

40 LET D{N)-D(N-l)+D(N-2) 

50 NEXT N 

60 FOR K-l TO 12 

70 LET F(N)-D(N)/D(N+1) 

80 NEXT N 

90 BORDER 0: INK 7: PAPER 0: 

CL3 
100 LET A-15: LET B-8 
110 LET X-20: LET Y-170 
120 GOSUB 310 

130 PLOT 0,130: DRAW INK 2 s 
255,0 

140 PLOT 0,128: DRAW INK 2; 
255,0 

ISO PLOT 80,130: DRAW INK 2;0 
.45 

160 PLOT 82,130: DRAW INK 2;0 
,45 

170 PRINT AT 2.1; INK 3:"B";AT 
4.5;"A" 
180 INPUT "COMPRIMENTO DO LADO 

A (MAX 70J ?":A 
190 IF A<1 OR A>70 THEN GOTO 

180 
200 INPUT "COMPRIMENTO DO LADO 

B (MAX 40) ?";B 
210 IF B<1 OR B>40 THEN GOTO 

ZOO 
220 LET X-12B-(A*3/2) : LET Y- 

120 

2 30 GOSUB 310 

240 PRINT AT 0,11; INK 5; "LADO 

A-" ;A;" LADO B-" :B 
250 FOR N-l TO 12 
260 IF A/B=F(N) OR B/A=F(N) 

THEN PRINT AT 2,8;"RAZA0 DE 
FIBONACCI" 
270 NEXT N 

280 PRINT AT 4,1; FLASH 1: INK 
6;"QUALQUER TECLA PARA CONTINU 
AH" 

290 PAUSE 
300 RUN 

310 PLOT X,Y: DRAW 3*A,0: DRAW 
0,-3*B 
320 DRAW -3*A,0: DRAW , 3*B 

3 30 RETURN 



il 



10 DIM F(11),D(13) 

20 DC0)-1:DU>-1 

30 FOR N-2 TO 13 

40 D(N)-D(N-l)+D(N-2) 

50 NEXT 

60 FOR N-0 TO 11 

70 F(N)-D(N)/D(N+1) 

80 NEXT 

90 PMODE 3:PCLS:CLS 

100 A-15:B-8 

110 X-20:Y-22 

120 GOSUB 310 

130 COLOR 4:LINE(0,62)-(255.62) 

PSET 
140 LINE(0,64) - (255.64) , PSET 



150 LINE<80.62)-(8O,17) , PSET 

160 LINE(82,62)-(82.17) , PSET 

170 DRAW"BM9,38C2SBU4R2FGNLFGL2 

BM40.5BU3EFDNLD2" 

175 FOR K-l TO 900:NEXT 

160 INPUT"COMPRIMENTO DO LADO A 

(MAX 70) ";A 
190 IF AO OR A>70 THEN 180 
20 INPUT'COMPRIMENTO DO LADO B 

(MAX 40) ";B 
210 IF B<1 OR B>40 THEN 200 
220 X-128-A*S/3:Y-72 
230 GOSUB 310 
250 FOR N-0 TO 11 
260 IF A/B-F(N) OR B/A-F(N) THE 
N DRAW"BM106,44C2S8NR2D2NRD2BR4 
U4BR2ND4RFGNLFGLBR4NU4R2U4L2BR4 
DND3F2NU3DBR2U3EFDNL2D2BR4L2U4R 
2BR4L2D4R2BR2U4BR8ND4R2D2L2F2BR 
2U3EFDNLD2BR3U4LR2BR2D4BR2R2U4L 
2D4" 

2 70 NEXT 

280 IF INKEYS-"" THEN 280 

300 RUN 

310 SCREEN 1,0: COLOR 3 

320 LINE(X.Y)-(3*A+X,Y+3*B) ,PSE 

T,BF 

3 30 RETURN 



GEEI 



m 



10 DIM F(ll) ,D(13) 

20 D(0)-1:D(1)-1 

30 FOR N-2 TO 13 

40 D(N)-D(N-l)+D(N-2) 

50 NEXT 

60 FOR N-0 TO 11 

70 F(N)-D(N)/D(N+1) 

BO NEXT: OPEN "GRP : " FOR OUTPUT 

AS 41 

85 COLOR 15,2,2:COTG 180 

90 SCREEN2 

100 A-15:B-8 

110 X-20:Y-22 

120 GOSUB 310 

130 LINE(0.62)-(255,62) ,8 

140 LINE{0,64)-{255,64) ,8 

150 LINE(80,62)-{80,17) .8 

160 LINE (82, 62>- (82,17) ,8 

170 FOR K-l TO 1 500: NEXT: RETURN 
180 SCREEN0 : INPUT'TAMANHO DO LA 
DO A (MAX 70>";AA 
190 IF AA<1 OR AA>70 THEN 180 

200 INPUT'TAMANHO DO LADO B (MA 

X 40) ";BB 

210 IF BB<1 OR BB>40 THEN 200 

215 GOSUB 90 

220 A-AA:B-BB:X-12B-A*3/2:Y-72 

2 30 GOSUB 310 

240 FOR N-0 TO 11 

260 IF A/B-FtN) OR B/A-F(N> THE 

N PRESET (90, 15 ): PRINT! l."RA2A0 

DE FIBONACCI" 

2 70 NEXT 

280 IF INKEYS-"" THEN 280 

300 RUN 

310 REM 

320 LINE(X.Y)-(3*A+X,Y+3*B) . 4,B 

F 

330 RETURN 



10 DIM F(ll) ,DU3) 

20 D(0) - 1:D(1) - 1 

30 FOR N - 2 TO 13 

40 DCN) - D(N - 1) + D(N - 2) 

50 NEXT 

60 FOR N - TO 11 

70 F(N) - D(N) / D(N + 1) 

80 NEXT 

90 HOME : HGR : HCOLOR» 3 

100 A - 15:B - 8 

110 X - 20:Y - 22 

120 GOSUB 310 

130 HPLOT 0.62 TO 255,62 

140 HPLOT 0,64 TO 2 55,64 

150 HPLOT 80,62 TO BO, 17 

160 HPLOT 82,62 TO 82,17 

180 VTAB 21: INPUT "TAMANHO DO 

LADO A (MAX 70) " ;A 
190 IF A < 1 OR A > 70 THEN 18 


200 INPUT "TAMANHO DO LADO B ( 
MAX 39) ";B 

210 IF R < 1 OR B > 39 THEN 20 


220 X - 128 - A * 3 / 2:Y - 72 
230 GOSUB 310 
250 FOR N = TO 11 
260 IF A / B « F(N) OR B / A - 

F(N) THEN VTAB 21: CALL - 95 
8: PRINT " RAZAO DE FIBONACCI " 
: CHRS (7) 
270 NEXT 

280 FOR I - 1 TO 1000: NEXT : 
POKE - 16302,0: GET RS 
300 GOTO 90 

310 FOR XX = XTOX+3*A 
320 HPLOT XX, Y TO XX , Y + 3 * B 

325 NEXT 

330 RETURN 

O programa comeca pedindo que o 
usuario dd'ina o tamanho dos Iados do 
retangulo. Se voce 1 entrar dois numeros 
adjacentes da serie de Fibonacci, sera 
avisado de que se trata de uma fracao 
de Fibonacci. 

Os numeros da serie sao calculados 
nas linhas que vao de 20 a 50. A partir 
dos dois primeiros numeros, os demais 
vao sendo calculados pela adicao de ca- 
da niimero ao anterior. As linhas 60 a 
80 guardam os numeros em uma matriz 
e as linhas 90 a 170 desenham um retan- 
gulo, para exemplo. Em seguida, come- 
ca a rotina de entrada, que verifica se 
os numeros escolhidos pertencem a se- 
rie de Fibonacci. 

Podem-se encontrar exemplos dos 
numeros de Fibonacci tambem na natu- 
reza; assim, uma espiral ligando folhas 
de um galho tem voltas e vSos que for- 
mam razdes de Fibonacci. Conte o nu- 
mero de voltas da espiral, de uma folha 
a outra. Depois, conte o niimero de vaos 
da espiral entre essas duas posigSes. A 
ra2ao 6, em geral, 5/3 ou 8/5. 



A batalha comeca, afinal, possibilitada 
pelas rotinas de combate baifslico e 
corpo a corpo que apresentamos neste 
artigo. Veremos tambem como testar o 
moral e contar as baixas de cada lado. 



Cctpa e Espada esta quase completo; 
ja podemos dar ordens as unidades e 
movS-las pelo campo de batalha. Faitam 
apenas as rotinas de combate. Depois de 



WOGRAMACAODEJOGOS 42 




UBMA: 



adidona-las ao programa, experimenta- 
remos, finalmente, o jogo. 

Os eventos resultantes do choque en- 
tre dois exercitos podem ser bem com- 
plicados — assim, antes de qualquer coi- 
sa, devemos decidir o que incluir no pro- 
grama. No tipo mais simples de resolu- 
c3o de combate, o maior sempre vence, 
o que faz do tamanho das unidades o 
fator decisivo da vitbria ou da derrota. 
Podemos ainda relacionar o desenlace 
da batalha ao moral da tropa, ao nume- 
ro de cavaleiros etc. Na realidade, nin- 



ALCANCE DOS PROJETEIS 

COMBATE CORPO A CORPO 

CONFERINDO MORAL 



VITQRIA E DERROTA 



INSTRUCOES 



guem tern a receita infalivel do triunfo; 
portanto, os fatores que determinam 
quais serao os vencedores em um jogo 
de guerra dependem da escolha do pro- 
gramador. 



COMBATE BALISTICO 



Em Capa e Espada existem dois tipos 
de combate: balistico (flechas) e corpo 
a corpo. Esta primeira rotina trata do 
combate com projeteis. 
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1710 REM Tiro 

1720 GOSUB 2540 

1730 PRINT AT 18,0;"Umdade ";a 

h;" atira* 

1740 LET fx-5: LET fy=-S: LET gp 

— 1 

1745 LET st-9 

1750 IF ah>8 THEN LET at-1 

1770 FOR »-at TO (at+7) 

1780 LET tm=ABS (T (m, 8) -T (ah, 8) 

): LET ty=ABS (T (m, 9) -T (ah, 9) ) 

1785 IF tm<fx AND T(m,l)<5 AND 

ty<fy THEN LET fx=t«i: LET £v = t 

y: LET gp=m 

1790 NEXT Bl 

1800 IF <Jp = -l THEN PRINT AT 19 

, 0;"Fora de alcance": GOSUB 241 

0: RETURN 

1810 LET C=8-T(gp.4)-ABS(fx-fy ) 

1820 IF gp<3 OR gp = 9 OR qp-10 T 

HEN LET C=C+1 

1830 IF ■(Tlgp.B) .TCop.9) >-2 TH 

EN LET C-C-2 

1640 IF T(gp,l)<>2 THEN LET C= 

C+l 

1B50 LET C=(C+(INT (T(ah,7)/40) 

)+FN r (3))*10 

I860 LET T(Qp, 7)-T(OP.7}-C 

1870 PRINT "Houve *:C:" baixaa 

na unidad* " : gp 

1875 COSU8 2410 

1860 LET Ult-QP: GOSUB 2200 

1890 RETURN 



Wfl 



1710 REM TIRO 

172 GOSUB 2540 

1730 LOCATE 0.19: PRINT "UN I DADE 

":SH; "ATIRA" 

1740 FX«5:FY-S:GP--1 

1745 ST-9 

1750 IF SH>8 THEN ST-1 

1770 FOR M-ST TO ST+7 

1780 TM-ABS(T<M,8)-(T(SH,B)) :TY 

-ABS(T(M,9)-T(SH,9J) 

1785 IF TM<FX AND T(M.1)<5 AND 

TY<FY THEN FX-TM: FY=TY: GP-M 

1790 NEXT M 

1800 IF GP=-1 THEN LOCATE 0.20: 

PRINT "FORA DE ALCANCE" : GOSUB 2 

410 

1610 C»8-T(GP,4)-ABS(FX-FY) 

1820 IF GPO OR GP-9 OR GP-10 T 

HEN C-C+l 

1830 IF M(T(GP,B) ,T(GP,9))-2 TH 

EN C-C-2 

1840 IF T(GP,1K>2 THEN C-C+l 

1850 C-(C+INT(T(SH,7)/40))+FN R 

(3))*10 

1860 T(GP.7)=T(GP,7)-C 

1870 PRINT "HOUVE" ;C; "BAIXAS NA 

NIDADE";GP 
1875 GOSUB 2410 
1680 UN-GP:GOSUB 2200 
1890 RETURN 




an 



1710 REM TIRO 



1720 GOSUB 2540 

1730 VTAB 21: PRINT "UNIDADE 

;SH;- ATIRA": GOSUB 30000 

1740 FX - 5:FY - 5:GP - - 1 

1745 ST-9 

1750 IF SH > 8 THEN ST-1 

1770 FOR M - ST TO <ST + 7) 



1780 TM - ABS (T(M.S) - T(SH,8 

)) :TY - ABS (T{M,9>) 

1785 IF TM < FX AND T(M.l) < 5 

AND TY < FY THEN FX - TM:FY - 
TY:GP « M 
1790 NEXT M 
1800 IF GP - - 1 THEN PRINT 
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*FORA DE ALCANCE": GOSUB 20000: 

GOSUB 2410: RETURN 
1810 C - 8 - T(GP,4) - ABS (FX 

- FY) 

1820 IF GP < 3 OR GP - 9 OR GP 

- 10 THEN C - C + 1 

1630 IF M(T(GP,8) ,T(GP,9)) - 2 



> 2 THEN C 



C 
BAIXAS 



THEN C - C - 2 
1640 IF T(GP,1> 
- C + 1 

1650 C - (C + t INT (T{SH,4) 
40)) + FN R{3)> * 10 
1660 T(GP,7) - T(GP,7) 
1870 PRINT "HOUVE ";C 

NA UN I DADE ";GP 
1875 GOSUB 30000: GOSUB 2410 
1880 UN - GP: GOSUB 2200 
1890 RETURN 

QD 

Modifique as seguintes linhas do pro- 
grama destinado ao Apple: 

1730 VTAB 21: PRTNT "UNIDADE " 

;SH;- ATIRA" 

1800 IF GP - - 1 THEN PRINT 

-FORA DE ALCANCE": GOSUB 2410: 

RETURN 

1875 GOSUB 2410 



il 



1710 REH TIRO 

1720 GOSUB 2540 

1730 DRAW"BM0,152":AS-"UNIDADE" 

+STRS(5H)+" ATIRA" : GOSUB 3190 

1740 FX-5:FY-5:GP— 1 

1745 ST-9 

1750 IF SH>8 THEN ST-1 

17 70 FOR M-ST TO (ST+7) 

1780 TM-ABS(T(M.B)-T(SH.81 ) :TY- 

ABS<T(M.9)~T(SH.9)) 

1785 IF TH<FX AND T(M.1)<5 AND 

TY<FY THEN FX-TM: FY-TY :GP-M 

1790 NEXT M 

1800 IF GP— 1 THEN DRAW'BMQ.160 

":AS*"FORA DE ALCANCE" : GOSUB 31 

90: GOSUB 24 10: RETURN 

1810 C-8-T(GP,4»-ABS<FX-FY) 

1820 IF GP<3 OR GP-9 OR GP-10 T 

HEN C-C+l 

1830 IF M(T(GP.B) ,T<CP,9>)-2 TH 

EN C™C~2 

1840 IF T{GP.1)<>2 THEN C-C+l 

1850 CMC+INT(T<SH,7)/4Q) ) +RND ( 

3))«10 

I860 T(GP,7)-T(GP,/)-C 

1870 DRAW"BM0. 160" : AS"" HOUVE"+S 

TR3(C)+" BAIXAS NA UNIDADE*+STR 

5(GP> : GOSUB 3190 

1875 GOSUB 2410 

1680 UN-CP:GOSUB 2200 

1890 RETURN 

A rotina de tiro e chamada sempre 
que os arqueiros recebem a ordem "FO- 
GO". Em outros jogos pode haver mais 
de urn tipo de unidade com capacidade 
de atirar diferentes projeteis. 

Quando uma unidade recebe a ordem 
de disparo, G<Po (GP ou gp) passa a va- 
ler - 1 na linha 1740. A seguir, a rotina 
verificara se ha um alvo vulneravel na 
area. As coord en ad as da unidade que 
at ira sao comparadas as de cada unida- 
de inimiga pcla linha 1780. Se o aJvo es- 
tiver dentro de um alcance de cinco po- 



sicoes do mapa, G<7o (GP ou gp) assu- 
me o numero da unidade atingida. Se 
houver mais de um alvo, o mais prdxi- 
mo sera considerado. 

Caso nao haja unidades inimigas por 
perto, GVb (GP ou gp) permanece va- 
lendo - 1 e o jogador e informado que 
o inimigo esta "FORA DE ALCANCE". 

Se o disparo atingir o alvo, as baixas 
inimigas serao calculadas e armazenadas 
ern C°/a (ou C). 

Varios fatores determinam a gravida- 
de dos danos causados por um disparo. 
Na linha 1810, o tipo de armadura da 
unidade-alvo e subtraido de 8. Em se- 
guida, subtrai-se do resultado um fator 
de distancia. A linha 1820 adiciona 1 a 
C°?b (ou C), se a unidade-alvo for de ca- 
valetros. Se ela estava resguardada por 
uma floresta (terreno tipo 2), a linha 
1830 subtrai 2; se se encontrava em mo- 
vimento, a linha 1840 adiciona I (tro- 
pas em movimento sao mais vulneraveis 
a artilharia). 

Finalmente, a linha 1850 soma o re- 
sultado a um quarto do poder da uni- 
dade atacante, mais uma parcela alea- 
t6ria — tudo isso vezes dez. O resulta- 
do corresponde ao total de baixas da 
unidade-alvo. As baixas sao subtraidas 
do poder da unidade e, em seguida, a 
rotina que testa o moral e chamada. 



C0NFR0NT0 



O resultado do combate corpo a cor- 
po e calculado de maneira similar: 



th<9) OB (ua> 

RETURN 

OR T(th,l>=5 



3)-T(r.h.4) + 



1510 REM Combate 
1520 IF (ua<9 AND 
6 AND th>8) THEN 
1530 IF T(us.l)=5 
THEN RETURN 
1540 GOSUB 2540 

1550 PRINT AT 18 , i "Combate !!" 
1560 LET at = INT ( (T (ub, 7) -T {th. 
7))/50) 

1570 LET at-at+T(un. 
T(us.5)+FN r(5) 

1580 IF ABS (T(us.2)-T(th,2))<> 
2 THEN LET at=at+2 
1590 IF ua<3 OR ub-9 OR ua=10 T 
HEN LET at-at+i 
1600 LET dr=INT !CT ( th , 7) -T (ua , 
7))/60) 

1610 LET df-df+T(th.3)-T(u9,4)+ 
T(th,5)+«(T(th.B) ,T(th.9))+FN r 
(3) + 2 

1615 LET wn-th: LET lo=ua 
1620 IF at>d£ THEN LET vn=ue : 
LET lo=th 

1630 LET wc-INT (T{vn.7)/1Q) : I 
F uc<l THEN LET wc=l 
1640 LET T(wn, 7) »T|nm, 7J-UC 
1650 LET lc=tNT CT(lo,7)/5): IF 
lc<l THEN LET lc-1 
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J660 LET T(lo,7)=TUo.7)-le 

1670 PRINT wn;" perde ";wc;" "; 

lo; * perde ■ ; lc 

1680 COStlB 2410 

lfi90 LET un-lo: GOSUB 2200 

1700 RETURN 



16 70 PRTNT WN; "PERDE" ;WC; 
;" PERDE" ;LC 

1680 GOSUB 2410 

1690 UN-LO: GOSUB 2200 

17 00 RETURN 



1660 T(LQ, 7) = T(LO,7) - LC 
1670 PRINT WN;" PERDE " ; WC ; " 
;LO:" PERDE ":LC: GOSUB 30000 
1680 GOSUB 2410 
1690 UN = LO: GOSUB 2200 
1700 RETURN 



1510 REM COMBATE 

1520 IF (US<9 AND TH<9) OR (US> 

8 AND TH>8) THEN RETURN 

1530 IF T(US.1)=5 OR T(TH,1)»S 

THEN RETURN 

1540 GOSUB 2540 

1550 LOCATE 0,19: PRINT "COMBATE 

! ! ! " 
1560 AT-INT< (T(US,7)-T(TH, 7) )/5 
0) 

1570 AT-AT+T(US,3)-T(TH,4J+T(US 
,5)+FN R(5) 
1580 IF ABSCT(US.2)-T(TH,2))<>2 

THEN AT=AT+2 
1590 IF US<3 OR. US-9 OR US-10 T 
HEN AT-AT+1 

1600 DR-1NT((T<TH,7)-T<US,7) >/6 
0) 

1610 DF=DF+TCTH.3)-T(US.4)4T(TH 
,5>+M<T(TH.B) ,T(TH,9))+FN R<3) + 
2 

1615 WN=TH:LO=US 
1620 TF AT>DF THEN WN=US:LO=TH 
1630 WC-INT(TCWN, 7) /10) :IF WCC1 

THEN WC-1 
1640 T<WN,7)=T{WN,7)-WC 
1650 LC=JNT(T(LO,7)/51 : TF LC<1 
THEN LC=1 
1660 T(L0.7)=T(L0.7)-LC 



1 COMBATE 



1510 REM COMBATE 
1520 IF (US < 9 AND TH < 9) OR 
(US > 8 AND TH > 8) THEN RETU 

Ml 

1530 IF T(US.l) = 5 OR T(TH,1) 

= 5 THEN RETURN 
1540 GOSUB 2540 
1550 VTAB 21: PRINT ' ~ 
! !": GOSUB 30000 

1560 TT - INT (CT(US,7) - T(TH 
,7)) / 50) 

1570 TT - TT + T(US,3) - TtTH,4 
) + T(US.S) + FN R(5) 
15S0 IF ABS <T(US,2) - T(TH,2 
) ) < > 2 THEN TT = TT + 2 
1590 IF US < 3 OR US - 9 OR US 

- 10 THEN TT = TT + 1 
1600 DR - INT {(T(TH,7) - T(US 
,7)) / 60) 

1610 DF » DF + T(TH,3) - T(US,4 
) + T(TH,5) + M(T{TH,8) ,T(TH,9) 
) + FN R(3) + 2 
1615 WN - TH:LO - US 
1620 IF TT > DF THEN WN - US : L 
O « TH 

1630 WC - INT (T(WN,7) / 10): 
IF WC < 1 THEN WC = 1 
1640 T(WN,7) = T(WN,7) - WC 
1650 LC - INT (T(L0,7) / 5) : I 
F LC < 1 THEN LC * 1 



Substilua as seguintes tinhas: 

1550 VTAB 21: PRINT "COMBATE 
l j " 

1670 PRINT WN:" PERDE ":WC;" 
;LO;~ PERDE " ; LC 



1510 REM COMBATE 

1520 IF <US<9 AND TH<9> OR (US> 

8 AND TH>B) THEN RETURN 

15J0 IF T(US,l)-5 OR TlTH.U-5 

THEN RETURN 

1540 GOSUB 2540 

1550 DRAW "BMO, 144" : AS- "COMBATE ! 

!";GOSUB 3190 

1560 AT-INT( (T(US,7)-T(TH.7))/5 

0) 

1570 AT=AT+T(US,3)-T(TH,4)+T<US 

,5)+RNU{5) 

1580 IF ABS(TtUS,2) -T(TH, 2) )<>2 

THEN AT-AT+2 
1590 IF US<3 OR US-"9 OR US-10 T 
HEN AT-AT+1 

1600 UF=INT( (T{TH,7)-T(US,7) )/6 
0) 

1610 DF=DF+T(TH,3)-T(US,4)+TtTH 
,5)+M(T(TH,8) ,T(TH.9) ) +RNDC3J+2 



u 
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1615 WN = TiI:L(J = US 

1620 IF AT>DF THEN WN=U5:L0=TH 

1630 WC=INT(T(WN. 7}/10) : LF WC<] 

THEN WC=1 
1640 T(WN, 7)-T[WN, ;)-WC 
1650 LC=INT(T(L0.7)/5) :1F LC<1 
THEN LC-1 

1660 T(LO,/)=T{LO,7>-LC 
1670 DRAWBMO, 160" : AS-STRS CWN) + 
" PERDE"+STE$(UC>+" "+STR$(LO)+ 
" PEKDE"+STRS(LC] : GOSUB 3190 
1680 GOSUB 2410 
1690 UN-L0:G0SUR 2200 
1700 RETURN 

Essa rotina e chamada sempre que 
duas unidades se eneoritram no tabulei- 
ro. Se elas forem do mesmo exercito, a 
rotina e imediatamente interrompida. O 
mesmo acomece se uma das unidades es- 
tiver em retirada — linha 1530. 

A principal diferenca entre o combate 
balist ico e o corpo a corpo e que, no se- 
gundo caso, as duas unidades entram em 
acao. O combate corpo a corpo 6, por- 
tanto, mais complexo, exigindo que se 
calculem as baixas dos dois lados. 

A linha 1 560 da ao atacante uma no- 
ta igual a um quinto da diferenca entre 
o poder das duas unidades. Em segui- 
da, a diferenga entre a arma do atacan- 
te e a armadura do atacado e somada 
ao valor do moral do atacante mais um 
ruimero aleatorio de 1 a 5. 

Aquele que ataca tern um bonus adi- 
cional se o inimigo nao estiver de [ren- 



te. Inclui-se nessa situacao o atacante 
que se movia em direcao diferente da do 
inimigo — se ele estiver parado, a dire- 
cao de seu ultimo movimento sera con- 
siderada, Por isso, nunca apagamos o 
elemento de direcao de uma unidade, 
apos uma ordem "ALTO". Finalmen- 
te, atacante tern tamb^m um bonus se 
for uma unidade de cavaleiros. 

A nota da unidade atacada e calcu- 
lada de modo semelhante, correspon- 
dendo a soma destes elementos: um sex- 
to da diferenca de poder, a diferenca en- 
tre a arma do atacante e a armadura do 
atacado, o moral do defensor, um bo- 
nus que depende do terreno, um bonus 
fixo de 2, um niimero aleatorio de 1 a 
3. Esses calculos tern como pressuposto 
que defender e mais facil que atacar. As 
vezes, porem, o entusiasmo do atacan- 
te pode neutraiizar tal vantagem. 

Assim, os atacantes obterao uma no- 
ta (AT) e os defensores outra (DF). A 
unidade que atcanca o valor mais alto 
ganha a batalha, perdendo apenas um 
deeimo de seu poder. J a o poder do der- 
rotado e reduzido em um quinto. 

Finalmente, a rotina que testa o mo- 
ral e chamada para o derrotado. 



MORAL 



O fator psicologico tem grande peso 
numa guerra. E bem possivel que um 



exercito seja derrotado, mesmo que es- 
teja equipado com as melhores armas do 
mundo, se a tropa detestar seus gene- 
rais, simpatizar com a causa inimiga ou, 
simplesmente, nao quiser lutar. 

A psicoiogia humana e muito com- 
plexa e nao pretendemos reproduzi-la 
aqui. Em Capa e Espada o moral in- 
fluencia apenas a sobrevivencia da uni- 
dade e o resultado do combate. 



2200 REM Moral 

2210 IF T(un,6)-T(un.7)<<<T(un, 

6)/100)«((T{un,5)+2))) THEN RE 

TURN 

2 220 GOSUB 2 54 

2 2 30 PRINT AT 1.8,0;" As per das 

foram tao grande3" 

2240 PRINT AT 19,0;" que a unid 

adi* ";un;" ae deaintegra" 

2 250 GOSUB 24] 

2260 LET T(un.l]=5 

2270 PRINT AT T (un , 8) , T (un , 9) ; 

n 

2 280 RETURN 



2 200 REM MORAL 

2210 IF T(UN,6)-T{UN.7><< <T(UN, 

6)/10D)M(T<UN,5)+2))> THEN RET 

URN 

2220 GOSUB 2200 

2230 LOCATE 0,19: PRINT "AS PERD 

AS FORAM TAO PESADAS" 



m 



i 



?*s 






Hill 
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2240 PRINT "QUE A UNIDADE- ;UN ; - 

SE DESINTEGRA" 

2250 GOSUB 2410 

2260 T(UN.l)-5 . 

2270 LOCATE T (UN, 9) ,T (UN, 8) : PHI 

NT ' " j 

2280 RETURN 



B] 



2200 REM MORAL 

2210 IF T(UN,6) - T(UN,7) < (( 

T(UN,6) / 100) * {(T(UN.S) + 2) 

} ) THEN RETURN 

2220 GOSUB 2S40 

2230 VTAB 21: PRINT "AS BAIXAS 

FORAM MUITO GRAND ES" 
2240 PRINT "A UNIDADE ";UN;" S 
E DESINTEGROU" 
2 2 SO GOSUB 2410 
2260 T(UN f l) - 5 
2270 X ■ T(UN,9):Y - T(UN.8):N 
- 14: GOSUB 10000 
2280 RETURN 



E] 



Adicione as seguintes linhas: 

2545 COLOR- 0: FOR I - 160 TO 

191 

2550 HPLOT 0,1 TO 279,1: NEXT 

: RETURN 

30000 RETURN 



il 



2200 REM MORAL 

2210 IF T(UN,6)-T(UN,7)<((T{UN, 

6)/100>*{(T(UN.5)+2J*10)) THEN 

RETURN 

2220 GOSUB 2540 

2230 DRAW"BM0,152* :AS-"AS PERDA 

S FORAM MUITO GRANDES" : GOSUB 31 

90 

2240 DRAW"BM0,160":AS-"UNIDADE" 

+STRS(UN)+" SE DESINTEGRA" :GOSU 

B 3190 

2250 GOSUB 2410 

2260 T(UN,l}-5 

2270 X9-T(UN,9)*e:Y9-T(UN,8)*8: 

LINE (X9. 19) - (X9+7 , Y9+7) , PRESET, 

BF 

2280 RETURN 

A linha 2210 subtrai o poder atual do 
poder inicial da tropa, comparando o re- 
suitado com o moral, Se a unidade so- 
freu uma perda de 30% e tem o moral 
baixo, ela se dispersa e nao participa 
mais do jogo, Se o moral for mais ele- 
vado, uma unidade podera perder ate 
70% do poder antes de se dispersar. 

Quando uma unidade nao passa no 
teste do moral, as linhas 2230 e 2240 
transmitem uma mensagem informando 
a dispersao, O elemento de com an do da 
matriz da tropa passa a valer 5, o que 
significa que a tropa bateu em retirada. 
A unidade e apagada da tela e ignora- 
da. Porem, como ha desertores espalha- 



dos pelo campo de batalha, a unidade 
podera dificultar o movimento de tro- 
pas, apesar de estar invisfvel. 



ENFIM. A PAZ 



Entre os liltimos detalhes que preci- 
samos incluir no programa esta uma ro- 
tina de verificacao do fim do jogo. 



2290 REM VUoria 

2300 LET Qd«0: LET bd = 

2310 FOR m-1 TO 8 

2320 IF T(«,l)05 THEN LET gd- 

gd+1 

2330 IF T(«+8.1.)<>5 THEN LET b 

d-bd+1 

2340 NEXT m 

2350 IF gd>bd*2 OR (bd<2 AND gd 

>2) THEN LET vc-1 

2360 IF bd>gd*2 OR <gd<2 AND bd 

>2) THEN LET de-1 

2370 RETURN 

2380 REM Fin 

2390 IF vc-1 THEN PRINT "VITOfi 

IA ! ! ! " 

2395 IF de-1 THEN PRINT "Una h 

unilhantft derrota." 

2400 RETURN 



KU 



2290 REM VITORIA 

2300 GD-0:BD-0 

2310 FOR M=J TO 8 

2320 IF T(M,1)<>5 THEN GD-GD+1 

2330 IF T<M+B,1)<>5 THEN BD*BD+ 

1 

2340 NEXT M 

2350 IF GD>BD*2 OR (BDC2 AND GD 

>2) THEN VC-1 

2360 IF BD>GD*2 OR (GD<2 AND BD 

>2) THEN DE-1 

2370 RETURN 

2380 REM FIM 

2390 IF VC»1 THEN PRINT "V1T6RI 

A ! ! !" 

2395 IF DE-1 THEN PRINT "UMA HU 

MILHANTE DERROTA." 

2400 RETURN 



H] 



2290 REM VITORIA 

2300 GD = 0:BD * 

2310 FOR M = 1 TO 8 

2320 IF T(M.l) < > 5 THEN GD 

= GD + 1 

2330 IF T(M + 8,1) < > 5 THEN 

BD - BD + 1 
234 NEXT M 
2350 IF GD > BD * 2 OR (BD < 2 

AND GD > 2) THEN VC = 1 
2360 IF BD > GD * 2 OR (GD < 2 

AND BD > 2) THEN DE = 1 
2370 RETURN 
2380 REM FIM 

2390 IF VC - 1 THEN PRINT "VI 
TORIA !!!": GOSUB 3000 



2395 IF DE - 1 THEN PRINT "UM 

A HUMILHANTE DERROTA" : GOSUB 30 

000 

2400 RETURN 



m 



Modificacdes do programa do Apple: 

2390 IF VC - 1 THEN PRINT "VI 
TORIA m - 

2395 IF DE - 1 THEN PRINT "UM 
A HUMILHANTE DERROTA" 

D 

2290 REM VITORIA 
2300 GD-0:BD-0 
2310 FOR M-l TO 8 
2320 IF T(M,1K>5 THEN GD-GD-H 
2330 IF T(M+e,lK>5 THEN BD-BD+ 
1 

2340 NEXT M 

2350 IF- GD>BD*2 OR (BD<2 AND GD 
>2) THEN VC-1 

2360 IF BD>GD*2 OB (GD<2 AND BD 
>2> THEN DE-1 
2370 RETURN 
2380 REM FIM 

2390 IF VC-1 THEN DRAW" BM0 . 176" 
:AS-"VITORIA !!!":GOSUB 3190 
2395 IF DE-1 THEN DRAWBM0 . 176" 
:A3-"UMA HUMILHANTE DERROTA. ":G 
OSUB 3190 
2400 RETURN 

A rotina verifica se um dos adversa- 
ries conta com o dobro de unidades do 
outro ou se um deles tem menos de duas 
unidades. Uma mensagem informa aos 
jogadores o resultado. 

Poderfamos acrescentar outras con- 
dicoes de vitoria. Por exemplo, um fa- 
tor que decidiu muitas guerras do perio- 
do medieval foi a morte do lfder. Po- 
rem, a incorporacao desse elemento a 
um jogo, aldm de trazer outros proble- 
mas, fajia com que a atencio dos joga- 
dores esti vesse permanentemente volta- 
da para uma das unidades. 

Uma unidade tambem poderia obter 
a vitdria se atingisse a extremidade opos- 
ta do mapa com metade de seus efeti- 
vos, ou metade de seu poder. Outro cri- 
terio seria pelo total de baixas. Nesse ca- 
so, ten'amos de acrescentar uma varia- 
vel para cakular o numero. 



ALEA JACTA EST 



Ja digitamos todas as rotinas neces- 
sarias ao jogo. Agora, precisamos ape- 
nas incluir um laco principal, que as 
chame ordenadamente: 



10 CLEAR 

30 GOSUB 190 



40 GOSUB 470 
50 GOSUB 860 
60 REM Loop 
70 FOR i-1 TO 8 
80 IF T{ 1,1X4 THEN GOSUB 
1380: IF y>2 THEN GOSUB 1900 
90 IF I(i,l)<5 THEN INK I: 
PRINT AT T(l.B) ,T(i,9) ;u9(i) 
100 NEXT l 
110 FOR e-9 TO 16 
120 IF T(e.lX4 THEN GOSUB 

2140 
130 NEXT e 
140 GOSUB 1020 
150 GOSUB 2 290 
160 IF veOl AMD deOl THEN 
GOTO 60 

170 GOSUB 2380 
180 STOP 
2410 REM Atraao 

2420 PRINT AT 21 . 7 : " {QUALQUER T 
ECLAI" 

2425 LET qS-INKEYS: IF a$-"* TB 
EN GOTO 2425 
2430 RETURN 



m 



10 CLEAR 5000 

30 GOSUB 190 

40 GOSUB 470 

50 GOSUB 860 

70 FOR 1-1 TO 8 

80 IF T (1,1X4 THEN GOSUB 1380: 

IF ¥W>2 THEN GOSUB 1900 

90 IF T(I,1X5 THEN LOCATE T(I, 

9) ,T{I.S} : PRINT CHR3(U(D); 

100 NEXT I 

110 FOR E-9 TO 16 

120 IF T(E,1X4 THEN GOSUB 2140 

130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VCOl AND DEOl THEN 60 

170 GOSUB 2380 

180 END 

2410 REM ATRASO 

2420 LOCATE 5, 22; PRINT "APERTE 

QUALQUER TECLA" 

2425 GS-INKEY$:IF GS-"" THEN 24 

25 

2430 RETURN 



31 



30 GOSUB 190 
40 G08UB 470 
50 GOSUB 860 
70 FOR I - 1 TO 8 
80 IF T(I,1) < 4 THEN GOSUB 1 
380: IF IU > 2 THEN GOSUB 1900 
90 IF T(I,1) < 5 THEN X - TCI, 
9);Tf - T(I,8):N - WAL ( MID3 ( 
US, I,D) : GOSUB 10000 
100 NEXT I 
110 FOR E - 9 TO 16 
120 IF T(E.l) < 4 THEN GOSUB 
2140 

130 NEXT E 
140 GOSUB 1020 
150 GOSUB 2290 

160 IF UC < > 1 AND DE < > 1 
THEN GOTO 70 



170 GOSUB 2380 
180 END 

475 REM XXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxx 

476 REM XXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxx 

2410 REM ATRASO 

2420 PRINT "APERTE QUALQUER TE 

CLA" ; : GOSUB 30000 

2425 GET G3 : 

24 30 RETURN 

30000 FOR QQ - 1616 TO 2000 ST 

EP 128 

30010 FOR WW - TO 39 

30020 POKE QQ + WW + 1024, PEE 

K (QQ + WW) 

30030 NEXT WW , QQ 

30040 RETURN 



E3 



Modificacoes a serem feitas no pro- 
grama acima: 

24 20 PRINT "APERTE QUALQUER TE 
CLA" i 

D 

10 CLEAR 500:PMODE 3,l:COLOR2,l 

:PCLS: SCREEN 1 , :DU-RND (-TIMER) 

18 GOSUB 2410 :CLS: END 

30 GOSUB 190 

40 GOSUB 470: GOSUB 3130 

50 GOSUB 860 

60 REM 

70 FOR 1-1 TO 8 

80 IF TU.IX4 THEN GOSUB 1380: 

IF Y>2 THEN GOSUB 1900 

90 IF T(I.1X5 THEN COLOR 3:DRA 

W"BM"+STRS(T(I,9)*8)+" ,"+STRS(T 

(1,8) *8) rUU-VAL{MID$(LTS,I.in :A 

S-UCS(UU) : GOSUB 3000 

100 NEXT I 

110 FOR E-9 TO 16 

120 IF T(E.1)<4 THEN GOSU8 2140 

130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VCOl AND DEOl THEN 60 

170 GOSUB 2380 

190 REM INICIO 

200 VC-0:DE-0 

2410 REM ATRASO 

2420 DRAWBM80, 1 76" : AS- "APERTE 

QUALQUER TECLA" : GOSUB 3190 

2425 GS-INKEYS: IF G3-"" THEN 24 
25 

2426 LINE(0,176)-{255,183).PRES 



ET , BF 

24 30 RETURN 

Em primeiro lugar, todos os micro- 
com put adores, com excecao dos perten- 
centes as linhas Apple e TK-2000, tim- 
pani a mem6ria. O TRS-Color selecio- 
na o modo grafico. Em seguida, as ro- 
tinas que criam os blocos graficos e de- 
senham o mapa sao chamadas. 

O laco principal comeca na linha 60 
e termina na linha 160. Ele permite que 
tanto o jogador quanto o computador 
deem ordens as suas respectivas unida- 
des. Depois, a rotina que faz com que 
as unidades obedecam as ordens e exe- 
cutada dezesseis vezes, seguida de uma 
chamada para verificacao de final de jo- 
go. O laco se repete enquanto um dos 
lados nao veneer. 

Ao final da listagem (comecando na 
linha 2410), temos uma rotina encarre- 
gada de provocar uma pausa em deter- 
minados momenios do jogo. 



AS INSTRUCTS 



Ao ser executado, o programa dese- 
nha o mapa com os diferentes terrenos, 
a moldura e as tropas beligerantes. 

Este e o momento de planejar sua es- 
trategia. Uma serie de mensagens sur- 
gira na janela de texto. Comecando com 
a unidade um, sao mostrados na tela o 
nurnero e o tipo de homens da unidade, 
juntamente com suas ultimas ordens — 
"ALTO", por exemplo. O jogador e en* 
tlo questionado sobre uma possivel mu- 
danca de ordens. 

Se a resposta for Sim, um menu com 
as opedes FOGO, ALTO, MARCHE e 
STATUS e" exibido. A opcio de atirar 
aplica-se somente aos arqueiros e, se se- 
lecionada indevidamente para qualquer 
outra unidade, surgira na tela a mensa- 
gem "SEM ARCOS". Quandoaopeao 
MARCHE for selecionada, o computa- 
dor pedira que se indique a direcao 
(N.S.L.O). 

Esse pTocesso se repete para cada uni- 
dade, cuja cor e modificada para orien- 
tar o jogador. 



QUE FALTA? 



Neste estagio, Capa e Espada turn 
jogo de guerra bem simples, mas, ain- 
da assim, bast ante divertido. 

Na ultima parte da serie, veremos co- 
mo transformar o computador em um 
jogador mais habilidoso. Mas, especial - 
mente se voce for um principiame, ten- 
te jogar Capa e Espada como est a, pa- 
ra apreciar os principals aspectos desse 
tipo de jogo. 



mini 



WINA 40 



Mill 



■h 



AVALANCHE: 
O TEMPO FECHA 



Meteorologia pode nao ser seu ponto 
forte, mas chegou a hora de adicionar 
urn pouco de tern pes tade ao jogo, 
Avalanche tem agora nuvens ou sol, 
conforme a versao do programs. 



Como se Willie ja nao tivesse proble- 
mas suficientes com os buracos, as ser- 
pentes e a mare, uma nuvem escura pro- 
mete chuva, ameai;ando molhar seu lan- 
che! Mas nao se preocupe se voce nao 
for usuario do Spectrum ou do MSX. 
Troveja apenas nas versoes de Avalan- 
che para esses micros. 

Willie esta com rnais sorte no progra- 
ma do TRS-Color. Nao ha nuvens no 
ceu e um belo sol de verao brilhara du- 
rante todo o jogo. 



A seguirtte rotina desenha uma nu- 
vem que se movimenta de acordo com 
a direcao do vento: 



10 


REM 


org 58795 


20 


REM 


eld Id a, (57347) 


30 


REM 


dec a 


40 


REM 


Id (57347) ,a 


5 


REM 


CD 


60 


REM 


jr z.cdm 


70 


REM 


ret 


eo 


REM 


cdm Id a, 6 


90 


REM 


Id (57347), a 


100 


REM 


Id a. 45 


110 


REM 


Id be.] 6384 


120 


REM 


Id hi, (57345) 


130 


REM 


Id d,3 


140 


REM 


Id e,2 


150 


REM 


call blk 


160 


REM 


Id a. (57348) 


170 


REM 


cp 


180 


REM 


jr z.crt 


190 


REM 


dec hi 


200 


REM 


jr rhm 


210 


REM 


crt l nc hi 


220 


REM 


chra Id (57345) ,hl 


230 


REM 


Id be. 57144 


240 


REM 


Id a, 47 


250 


REM 


Id d,3 


260 


REM 


Id e,2 


270 


REM 


call blk 


280 


REM 


Id de,129 


290 


REM 


abc hi . de 


300 


REM 


jr nz.cnr 


310 


REM 


id a,0 


320 


REM 


Id (57348) ,a 


330 


REM 


re t 


34 


REM 


enr Id de,144 


350 


REM 


Id hi, (57345) 


360 


HEM 


sbc hi ,de 


370 


REM 


jr nz.cnl 


380 


REM 


Id ^ . l 


390 


REM 


Id (57348) ,a 



400 REM cnl ret 
410 REM org 58970 
420 REM blk * 

A posicao de mem6ria 57347 contem 
o atraso da nuvem. Essa variavel con- 
trola a rapidez com que ela se movimen- 
ta pelo ceu. Quando se inicializa o nivel 
do jogo, a velocidade e especificada por 
meio de um numero que e carregado 
nessa posicao. 

Depois de carregado no acumulador, 
o atraso da nuvem e" decrementado e ar- 
mazenado de volta em 57347. Se seu va- 
lor tiver sido reduzido a zero, as instru- 
coes cp e jr z saltam a instrucao rel e 
dao prosseguimento a rotina que movi- 
menta a nuvem. Caso contrario, o pro- 
cessador retorna e adia o movimento da 
nuvem ate que o valor do atraso tenha 
sido reduzido a zero. 



CEU AZUL 



A rotina encarregada de movimentar 
a nuvem comeca acertando a variavel de 
atraso. Repare que, se o valor desta ja 
foi reduzido a 0, um outro decremento 
resukaria em 255. Para que o atraso che- 
gasse novamente a 0, a rotina precisa- 
ria ser chamada 256 vezes — o que tor- 
naria o movimento da nuvem extrerna- 
mente lento. Para evitar que isso ocor- 
ra, o numero 6 e carregado no acumu- 
lador e colocado no endereco 57347. 
Com o atraso assim restabelecido, uma 
suave e refrescante brisa passa a empur- 
rar a nuvem, o que voce pode constatar 
observando a tela. 

O numero 45 e carregado no acumu- 
lador. Ele sera aproveitado pela rotina 
blk, que imprime um bloco de caracte- 
res. As dimensoes do bloco devem ser 
carregadas nos registradores D e E — D 
carrega o numero de colunas e E, o nu- 
mero de linhas. A rotina blk, por sua 
vez, utiliza a rotina print, que tem sido 
empregada com freqiiencia neste jogo. 
O par de registros HL deve, entao, car- 
regar a posicao de tela; o par BC, o 
apontador de dados, e o acumulador A, 
a cor do caractere. 

O niimero 5 — codigo da cor azul 
ciano sobre azul ciano — e carregado no 
acumulador, pois a rotina imprime ca- 
racteres de ceu sobre a nuvem, apagan- 



do-a. Depois disso, imprime a nuvem 
uma posicao para a direita ou para a es- 
querda, dependendo da direcao em que 
o vento esta soprando. 

O par de registros BC e carregado 
com o endereco inicial dos padroes. Es- 
se endereco ira fornecer os dados apro- 
priados ao bloco azul de ceu. O par HL 
e carregado com o conteiido de 57345 
e 57346, que sao os apontadores da po- 
sicao atual da nuvem. 

A nuvem tem tres colunas de compri- 
mento por duas linhas de altura. Assim, 
3 e carregado em D e 2, em E. Em se- 
guida, a rotina blk e chamada e impri- 
me o bloco de caracteres de ceu azul, 
apagando a nuvem. 



D1RECA0 00 VENTO 



A nuvem deve se movimentar na di- 
recao em que o vento esta soprando. Pa- 
ra isso, utiliza-se a posicao de memdria 
57348, originalmente ajustada pela ro- 
tina de inicializacao, como uma baliza. 
Se ela contem o valor 1 , o vento esta so- 
prando para a esquerda; se contem o va- 
lor 0, o vento esta soprando para a 
direita. 

O conteiido de 57348 e carregado no 
acumulador. Se seu valor for 0, a ins- 
trucao jr z salta para o rotuto crt e o 
apontador de posicao da nuvem e incre- 
mentado, movendo-se uma posicao pa- 
ra a direita na tela. Se o conteudo de 
57348 for 1, a instrucao jr z nao atua 
e o par de registros HL e decrementa- 
do, movendo o apontador de posicao da 
nuvem um caractere para a esquerda. A 
pr6xima instrucao jr z simplesmente sal- 
ta sobre a instrucao inc. 



SOPRANDO AS NUVENS 



O conteudo de HL e trazido de volta 
para o apontador de posicao da nuvem, 
nos enderecos 57345, ajustando-o. Em 
seguida, o apontador de dados BC e car- 
regado com o endereco inicial dos da- 
dos da nuvem. 

O acumulador e carregado com 47 — 
c6digo de branco sobre fundo ciano, a 
cor da nuvem. O registro D e carregado 
com 3 e o registro E, novamente com 2. 



A nuvem e do mesmo tamanho daque- 
la que foi apagada. 

Depois disso, a rotina blk e chama- 
da e imprime a nuvem em sua nova po- 
sicao na tela. 

O movimento da nuvem pode leva- 
la ate o canto do video, A parte dela que 
ultrapassar a priraeira on a ultima co- 
luna serd impressa na linha seguinte ou 
na linha de cima, provocando a desfi- 
guracao de sua forma. 

Para evitar que isso aconteca, o pro- 
grama verifica primeiro se a nuvem al- 
cancou o extremo esquerdo do video. O 
par DE e carregado com 129 — a posi- 
cao de tela do canto esquerdo da linha. 
Esse valor e subtrafdo do apontador de 
posicao da nuvem no par HL. Se o re- 




DESENHO DA NUVEM 



DIRE C AO DO VENTO 
OS CARACTERES 



DO CEU AZUL 



EFE1T0 DO ATRASO 



MUDANQA DE DIRE CAO 
C£U ENCOBERTO 



MOVIMENTO DAS NUVENS 



VERIFIC A CAO DA POSIC AO 



SOL NO TRS-COLOR 



sultado nao for 0, a nuvem nao chegou 
no canto esquerdo. A instrucao jr nz sal- 
ta entao para verificar se ela alcancou 
o canto direito. 

Se o resultado for 0, a nuvem atin- 
giu o canto esquerdo e o salto nao ocor- 
re. O acumulador € entao carregado 
com e esse valor e transferido para a 
baliza de direcao do vento, de modo que 
a nuvem se desloque para a direita na 
proxima vez. 

A rotina err verifica se a nuvem che- 
gou ao canto esquerdo do video sub- 
tralndo o niimero 144 do apontador de 
posicao. Se ela atingiu o canto direito 
da linha, o valor 1 € carregado no indi- 
cador da direcao do vento. Na pr6xima 
vez, a nuvem ira para a esquerda. 






S 







BtOCO DA NUVEM 



Esta rotina imprime um bloco de ca- 
racteres na tela, com D colunas de com- 
primento por E linhas de altura. 



10 


REM 


org 58970 


20 


REM 


blk push hi 


30 


REM 


bl j push de 


40 


REM 


push hi 


50 


REM 


z push de 


60 


REM 


call print 


70 


REM 


inc hi 


60 


REM 


pop de 


90 


REM 


dec d 


100 


REM 


jr nz.z 


110 


REM 


pop hi 


120 


REM 


Id de,32 


130 


REM 


add hi ,de 


140 


REM 


pop de 


150 


REM 


dec e 


160 


REM 


jr nz.blj 


170 


REM 


pop hi 


180 


REM 


ret 


190 


REM 


org 58217 


200 


REM 


print * 



O programa anterior, que movimen- 
ta a nuvem, utiliza a rotina blk. Portan- 
to, nao ira trabalhar atd que a rotina que 
acabamos de apresentar esteja guarda- 
da na mem6ria. Esta, por sua vez, nao 
entrara em funcionamento sem que a ro- 
tina print, que tambem e chamada, se 
encontre na memoria. 



E BLOCO CERTO? 



O apontador da posicao de tela em 
HL e o niimero de colunas e linhas que 
estao em DE sao armazenados na pilha 
duas vezes. Isso e fetto porque a rotina 
trabalhara com duas dimensoes, usan- 
do dois lacos. 

Como os parametros ja estao arma- 
zenados, a rotina print e chamada e im- 
prime o primeiro caractere na tela. O 
par HL e incrementado, movendo-se um 
caractere para a direita. As dimensoes 
do bloco sao recuperadas da pilha e o 
parametro horizontal — equivalente ao 
numero de colunas — e decrementado. 
Se o parametro nao foi reduzido a 0, a 
instrucao jr nz volta ao inicio do laco 
para imprimir outro caractere da nuvem 
nessa linha da tela. 



Quando o registrador D for 0, a pri- 
meira linha do bloco estard completa. 
Em seguida, recupera-se o par HL da pi- 
lha e adiciona-se o numero 32 ao seu va- 
lor. Como se trata de uma adicao de mi- 
meros de dezesscis bits, a operacao e fei- 
ta por interm6dio do par DE. O resul- 
tado fica no par HL, fazendo com que 
esse apontador de tela se mova uma li- 
nha para baixo. O par DE e novamente 
recuperado da pilha, para ajustar o va- 
lor em D e para decrementar o valor em 
E. Esse registrador conta o numero de 
linhas que falta. 

Se o valor no registro E nao tiver si- 
do reduztdo a 0, a instrucao jr nz man- 
da o processador de volta ao inicio do 
iaco, para comecar a impressSo de uma 
nova linha. 

Quando o valor de E for 0, o processa- 
dor sai do lago e o par HL e recuperado 
da pilha, ajustando o apontador de tela 
para as checagens que serao realizadas. 
Lembre-se de que precisamos verificar 
se a nuvem nao atingiu nenhum dos can- 
tos da tela. 

Depois disso, a rotina blk retorna ao 
programa principal deste artigo. 



Na versSo de A valancke para o TRS- 
Color, a inclusao de uma nuvem exigi- 
ria urn conjunto adicional de dados ou 
padroes. Ainda que isso nao constituis- 
se um problema, haveria urn outro obs- 
taeulo: o conjunto de cores ja defim'do 
e azul, vermeLho e verde — nenhuma de- 
las, portanto, e adequada para a nuvem. 
Como nesta versao a aventura transcor- 
re num dia muito quente — com o ceu 
avermelhado — , uma nuvem nao e real- 
mente essencial. A rotina a seguir mo- 
vimenta o sol durante o jogo. 



10 


OBG 19727 


20 


MOVSUN DEC 16258 


30 


BNE SUNRET 


40 


LDA |5 


50 


STA 18258 


60 


SYNC 


70 


LDX 11569 


80 


LDA 130 


90 


MOVA PSHS A 


100 


LDA #2 


110 


MGVB ANDCC ISFE 


120 


PSHS CC 


130 


cuts 


140 


MOVC PULS CC 


150 


ROR B.X 


160 


PSHS CC 


170 


INCB 


180 


CMPB fl4 


190 


BNE MOVC 


^^^ 200 


LSL.X 


ion 1 no 


PULS CC 


■■■ 220 


ROR.X 




230 
240 
250 
260 
270 
280 
290 



DECA 

BNE MOVB 
LEAX 32.X 
PULS A 
DEC A 
BNE MOVA 
SUNRET RTS 



Para testar a rotina, digite o seguin- 
te programa: 

10 EXEC 19426 
20 EXEC 19727 
30 GOTO 20 

A posicSo de memoria 18258 contem 
a variAvel de atraso do sol. Essa varia- 
vel impede que o atraso risque o ceu co- 
mo se fosse um disco voador, e e" ajus- 
tada, inicialmente, com 5. 

A primeira instrucao da rotina decre- 
ments o atraso do sol. Se o valor dessa 
variavel for 0, a instrucao BNE e des- 
viada para a instruf io RTS do final da 



rotina e o processador retoraa. Caso 
contririo, a instrucio BNE nao realiza 
o desvio e o processador continua com 
o restante da rotina. Em outras pala- 
vras, o movimento do sol sofre um atra- 
so, ja que a rotina e executada uma vez 
a cada cinco chamadas. 

Logo que e chamada, a rotina ajusta 
o atraso do sol, colocando o numero 5 
no acumulador e armazenando-o de vol- 
ta na posicao de mem6ria 18258. 



SINCR0NISM0 



O comando SYNC encarrega-se de 
sincronizar o restante da rotina com o 
sinal de TV. Isso € feito para resguar- 
dar a posicao do sol da mudanca que se 
efetuari na tela. O registro X e carre- 
gado com o endereco na tela do canto 
superior esquerdo do sol. O acumulador 




A e carregado com 30 (o sol tem 30 li- 
nhas de altura), valor que se guarda na 
pilha. Em seguida, A e carregado com 
2 — urn contador de laco que fara o sol 
se desiocar lateralmeme dois pontos na 
tela. 

A operacao AND e efetuada entre 
o registro de cddigo condicional e o 
numero hexadecimal $FE. Como a re- 
presentacao binaria de SFE e 1 1 1 1 1 1 10, 
os sete bits mais significativos do re- 
gistro de codigo condicional permane- 
cem inalterados, enquanto o bit menos 
significativo e ajustado com 0. Esse bit 
— ou seja, o bit do registro de co- 
digo condicional — corresponde a ba- 
liza carry, que, portanto, e zerada nes- 
sa operacao. 

O registro de c6digo condicional e 
guardado na pilha. O registrador B, 
ajustado com 0, sera usado como urn 
compensador. A rotina esta ajustada e 
pronta para realizar o deslocamento. 



R0TACA0 DO SOL 



A parte seguinte da rotina que esta- 
mos examinando desloca o sol pelo ceu. 
Para isso recupera da pilha o registro de 
codigo condicional, garantindo que, na 
primeira passagem do laco, o valor da 
baliza carry seja zero. 

A instrucao ROR B,X roda uma po- 
sicao para a direita os bits do endereco 
da tela apontado por X + B. A rotacao 
desloca todos os bits. Assim, o ultimo 
lugar desocupado no processo e carre- 
gado com o conteiido da baliza carry, 
e o bit que ultrapassou o fim do outro 
lado e colocado nessa baliza. 

Os pontos que formam essa parte do 
sol sao deslocados uma posicao para a 
direita. O ponto no canto esquerdo e 
aceso (ajustado para 1) ou apagado 
(ajustado para 0, ou seja, adquire a cor 
do ceu). O resto desse byte do sol e des- 
locado um ponto. 

O ponto colocado na baltza carry e 
preservado e a baliza volta para a pilha. 
O contador de lago em B e incrementa- 
do e comparado a 14 — numero de ca- 
racteres da parte do c£u ocupada pelo 
sol, A comparacao permite-nos verifi- 
car se o ultimo byte da area ja foi des- 
locado. Se B for menor que 14, a ins- 
trucao BNE manda o processador de 
volta, para continuar com o pr6ximo ca- 
ractere. Chegando ao ultimo caractere, 
o processador salta do laco. 



FINAL LIVRE 



Esta aventura se passa no hemisferio 
norte e o sol se move da esquerda para 



40 CODIGO DiMAQUINA 



a direita. Seria muito artificial se, ao al- 
cancar o final da tela ou esbarrar no es- 
core, o sol comecasse a fazer o caminho 
de volta — isto e, da direita para a es- 
querda. 

Porem, como nao existe noite na re- 
giao de Avalanche, nosso astro reapa- 
recera a esquerda sempre que concluir 
seu percurso na tela. 

A instrucao LSL ,X promove o des- 
locamento 16gico para a esquerda do 
conteiido da posicao de tela apontada 
por X. O registrador X nao foi altera- 
do nesta parte da rotina, e, por isso, ain- 
da aponta para o canto inferior esquer- 
do da figura do sol. Assim, o bit do can- 
to esquerdo e deslocado para fora do re- 
gistrador. O bit do canto direito, por 
sua vez, que ja tinha sido deslocado do 
byte, e recuperado da pilha, voltando 
para a baliza carry. Em seguida, a ins- 
trucao ROR ,X faz com que ele execute 
uma rotacao sobre o canto esquerdo da 
posicao de tela. 

O contador em A € decrementado e, 
se seu valor ainda nao tiver chegado a 
0, o processador salta para desiocar o 
sol mais um ponto. 

Quando o deslocamento correspon- 
der a dois pontos, a instrucao LEAX 
32, X adiciona o valor 32 ao conteiido 
do registro X e movimenta o apontador 
da posicao de tela para a prdxima linha 
abaixo do sol, O contador de linha, re- 
cuperado da pilha para o acumulador, 
e, entao, decrementado. Se seu conteii- 
do nao for igual a 0, a instrucao BNE 
manda o processador de volta para ro- 
lar a pr6xima coluna de caracteres. Ca- 
so contrario, o processador salta para 
a instrucao RTS e retorna. 



A rotina a seguir coloca na tela uma 
nuvem que se move pelo ceu, empurra- 
da pelo vento: 

10 org 54270 

20 Id a, (-5208) 

30 dec a 

40 Id (-5208), a 

50 cp 

60 jr i, el 

70 ret 

B0 cl Id a, 6 

90 Id (-5200) ,a 

100 Id a, (-5207) 

110 cp 

120 jr z.ct 

130 Id hi ,-5210 

140 dec (hi) 

150 jr cm 

160 ct Id hi. -5210 

170 inc (hi } 

180 cm Id hi, (62413) 

190 Id b,6 



200 id a, (-5210} 

210 Id c.a 

220 Id d,20 

230 Id e.l 

240 call -11168 

250 Id hi, (62413) 

260 Jd de.4 

270 add til.de 

280 Id b.6 

290 Id a, (-5210) 

300 add a, 16 

J10 Id c.a 

37.0 Id d,24 

330 Id e.l 

340 call -1 1 168 

350 Id a, (-52UJ) 

360 cp Z 

370 jr nz.cr 

.180 Id a,0 

390 Id (-5207), a 

400 ret 

410 cr Id a, (-5210) 

420 cp 230 

430 jr ni.cf 

440 Id a, 1 

450 Id (-5207) .a 

460 cf ret 

470 end 

O enderego - 5208 contem a varia- 
vel de atraso da nuvem. Essa variavel 
controla a rapidez com que a nuvem se 
move. A velocidade foi especificada na 
parte da rotina principal que inicializa 
as variaveis, com a armazenagem do nu- 
mero 6 naquele endereco. 

O atraso da nuvem e carregado no 
acumulador, decrementado e novamen- 
te armazenado em -5208. Quando a 
variavel e reduzida a 0, as instrucoes cp 
e jr z saltam a instrucao ret, e o pro- 
cessador executa o restante da rotina 
que movimenta a nuvem. Enquanto is- 
so nao ocorre, o processador retorna e 
adia o movimento da nuvem. Em outras 
palavras, a rotina e executada uma vez 
a cada seis charnadas. Utilizamos essa 
tecnica de controle do sincronismo em 
varias partes deste jogo. 



DIREpAO DO VENTO 



Antes de mais nada, a rotina acerta 
o atraso da nuvem. Lembre-se de que, 
para que ela prossiga, o conteiido da va- 
riavel de atraso precisa ser reduzido a ze- 
ro. Um outro decremento teria como re- 
sultado 255, pois, na representacio bi- 
naria adotada pelo processador, - 1 e 
o mesmo que 255. Assim, para uma no- 
va execucao, a rotina teria que ser cha- 
mada 255 vezes, o que result aria num 
movimento extremamente lento da nu- 
vem. Por esse motivo, o mimero 6 e car- 
regado em - 5208 pelo acumulador. 

Em seguida, o conteiido de - 5207 e 
colocado no acumulador. Essa variavel 
contem a direcao do vento. Se for 0, o 
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vento sopra para a direita; se for 1 , pa- 
ra a esquerda. O endereco - 5210 con- 
tem a posicao horizontal da ntivem. 
Apenas essa posicao precisa ser altera- 
da, ja que a nuvem se move na mesma 
linha, de urn lado para outro. 

O valor de - 5207 € testado pela ins- 
trucao cp 0. Se for 0, a instrucao jr z sal- 
ta para o r6tulo ct, o valor em - 5210 
e incrementado atraves de HL e a nu- 
vem se move para a direita, Se for 1 , o 
salto nao ocorre, o valor em -5210 e 
decrementado atraves do par HL e a nu- 
vem se move para a esquerda. 



F0RMACA0 DA NUVEM 



Utilizamos sprites para imprimir a 
nuvem na tela do MSX. No final deste 
artigo, voce tera explicates mais dela- 
lhadas sobre o emprego desse recurso 
grafico em c6digo de maquina. 

Para que esta parte do programa fim- 
eione, os padroes das figuras devem es- 
tar na mem6ria. Alem disso, e preciso 
que a rotina - 12121 — que transfere es- 
ses padroes da RAM para a tabeia de 
padroes de sprites na VRAM — tenha 
sido executada. Se voce estiver acompa- 
nhando a seqiiencia do jogo e executar 
a rotina principal antes da que apresen- 
tamos neste artigo, as condicoes acima 
serao cumpridas. 

A rotina - 1 1 168 e utilizada duas ve- 
zes para colocar na tela os dois sprites 
que compoem a nuvem. Assim, os pa- 
rametros necessarios precisam ser car- 
regados nos registros adequados. 

O par HL deve center o endereco ini- 
cial do sprite na Tabeia de Atributos de 
Sprites (TAS). O endereco initial dessa 
tabeia est£ armazenado nas posicoes 
62413 e 62414, Como a nuvem e a pri- 
meira figura do jogo que utiliza o spri- 
te, este sera o endereco do primeiro spri- 
te da nuvem. O registro B, que deve con- 
ter a coordenada Y do sprite na tela, e 
ajustado com o valor 6. O registro C 
contera a coordenada X. Para isso, o 
conteiido de - 5210 e colocado em C pe- 
lo acumulador. O registro D content o 
c6digo do padrao de 32 bytes que for- 
ma o sprite — no nosso caso, a primei- 
ra parte da nuvem tern o cbdigo 20. Fi- 
nalmente, o registro E deve conter a cor 
do sprite — usamos aqui o preto, cujo 
codigo e 1. 

Para o sprite que completa nuvem ha 
algumas alteraeoes. Como se trata do se- 
gundo sprite do jogo, soma-se 4 ao en- 
dereco inicial da TAS no par HL. A 
coordenada Y em B permanece 6. A 
coordenada X em Ceo resultado da so- 
ma do conteiido anterior desse registro 
com 16. A operacao d necessaria porque 



imprimimos o segundo sprite que com- 
poe a nuvem ao lado direito do primei- 
ro, que tern dezesseis bits de comprimen- 
to. O codigo do segundo sprite da nu- 
vem e 24, valor colocado em D. Sua cor 
i a mesma — ou seja, o registro E con- 
tinua contendo o valor 1. 



S0PRAND0 VENTO 



E importante checar se a nuvem che- 
gou a um dos cantos do video. Caso is- 
so ocorra, estaremos decrementando o 
valor ou incrementando o valor 255 na 
coordenada horizontal, o que resultara 
em erro nessa coordenada. 

Verificamos primeiro se o conteiido 
de -5210 e 2 ou 230. No primeiro ca- 
so, alteramos a direcao do vento em 
-5207 para 0, ou seja, para a direita; 
no segundo, alteramos para 1 , ou seja, 
para a esquerda, Se b endereco —5210 
nao contiver nenhum desses dois valo- 
res, a direcao n3o e alterada e o proces- 
sador retorna. 



UTIL1ZACA0 DE SPRITES 



O sprite e um bloco de 16 X 16 pon- 
tos ou de 8 X 8 pontos, dependendo do 
tamanho selecionado. No primeiro ca- 
so, seus padroes ocupam 32 bytes, o que 
nos permite definir apenas 64 sprites di- 
ferentes. No segundo caso, os padr<5es 
ocupam oito bytes, como um caractere 
graFico comum, e podemos definir ate" 
256 sprites diferentes. Esses padroes de- 
vem ser colocados na tabeia de padroes 
de sprites, cujo endereco inicial esta ar- 
mazenado nas posicoes 62415 e 6241 6 da 
RAM. 

Os sprites podem ser quatro vezes 
maiores do que os blocos graficos co- 
muns t mas nao 6 so isso o que os distin- 
gue. Normalmente, para movirnentar 
um caractere grafico na tela, temos que 
apaga-lo de sua posicao anterior e im- 
primi-lo na nova posicao. Um sprite po- 
de ser movimentado facilmente pela te- 
la: alterando-se suas coordenadas X e Y 
de impressao, ele seri automaticamen- 
te apagado da posicao que ocupava e 
impresso na nova posicao. Tudo isso e" 
feito pelo processador de video. 

Esse recurso grafico tern, entretanto, 
suas limitacSes. Os sprites sao definidos 
numa tabeia de 256 bytes, a ja mencio- 
nada Tabeia de Atributos de Sprites — 
TAS. Os atributos de cada sprite ocu- 
pam quatro bytes; portanto, nao pode- 
mos colocar ao mesmo tempo na tela 
mais do que 32 sprites diferentes, inde- 
pendentemente do tamanho que tenha 
sido selecionado. 



O primeiro byte guarda a coordena- 
da Y; o segundo, a coordenada X; o ter- 
ceiro, o niimero do sprite (e possivel es- 
colher entre 64 e 256 padroes diferentes, 
dependendo do tamanho escolhido); o 
quarto e ultimo, a cor. Como o sprite 
tern apenas cor de frente, os bits apa- 
gados sao transparentes na tela, o que 
nos permite criar interessantes efeitos 
visuals. 

Uma diivida pode surgir: o que acon- 
tece se as coordenadas de dois ou mais 
sprites coincidirem? Os sprites sao hie- 
rarquizados segundo a ordem em que 
foram definidos na TAS — ou seja, o 
sprite que ocupa os quatro primeiros 
bytes na TAS tern precedencia sobre o 
que ocupa os quatro bytes seguintes e as- 
sim por diante. Em resumo, o sprite que 
tern precedencia aparecera na frente dos 
demais. A justaposicao de figuras assim 
obtida muitas vezes e aproveitada na 
composicao de efeitos visuals. Mas nao 
se esqueca de que so podemos ter ate 
quatro sprites numa mesma linha. Se 
tentarmos colocar um quinto sprite, o 
ultimo na ordem hierarquica desapa- 
recera. 

A rotina a seguir coloca na TAS os 
atributos de um sprite, ou seja, coloca 
um sprite na tela. 



10 


org -11168 


20 


Id d.b 


30 


push de 


40 


push be 


50 


push hi 


60 


call 77 


70 


pop hi 


80 


pop be 


90 


inc hi 


100 


Id A,C 


] JO 


push hi 


120 


call 77 


130 


pop hi 


J 40 


pop de 


150 


inc hi 


160 


Id a,d 


170 


push de 


180 


push hi 


190 


call 77 


20 


pop hi 


210 


pop de 


220 


inc hi 


230 


Id a , e 


240 


call 77 


250 


ret 


260 


end 



Essa rotina utiliza os parametros for- 
necidos pelo par HL e pelos registros B, 
C, DeE para colocar na TAS os atri- 
butos de um sprite. 

O par HL deve conter o endereco ini- 
cial do sprite na TAS; o registro B, a 
coordenada Y; o registro C, a coorde- 
nada X; o registro D, o c6digo do spri- 
te e o registro E, a cor do sprite. 
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A FRATERNIDADE 
DAPEDRA 

David Morrell 

Um grupo secreto, sob 
direcao de um padre 
armado, passa a agir 
contra o terrorismo. 
Mas, sera que violencia 
se combate com mais 
violencia? Eis o dilema 
de Drew, agente da Lei 
envolvido com fatos e 
f iguras do mundo real, 
num livro surpreendente 
do criador de Rambo. 



** 




AVENTUREIROS 
EMILIONARIOS 

Clark Howard 

No romance do Texas, 
a saga da descoberla de 
um poco de petroleo e 
o drama de um casal que 
herda um lote de terra 
aparentemente sem valor 
e enf renta com coragem 
os poderosos do iugar, 
ate veneer. Uma vitoria 
antes de tudo moral, 
numa historia forte e 
envolvente, com realistas 
cenasdeamor. 



CANADA SEM FIM 

Bryan Forbes 

Uma brilhante historia de 
espionagem envolvendo 
a KGB. Por que matar 
uma ex-espia que ja tinha 
sido desmascarada e 
torturada tempos atras? 
Um agente ingles, seu 
antigo amante, enfrenta 
um desafio: descobrir 
por que ela f oi morta . . . 
e por que agora! 



PODER 

Howard Fast 

Um lider sindical com 
a volupia do poder,, 
a luta pelos direitos 
dos trabalhadores, 
has EstadosUnidos, 
e sua manipulacao 
porcorruptos 
e oportunistas; o jogo 
das ambicoes politicas. 
Admiravelmente escrilo, 
um romance a tualissimo 



SUPERSEXO 

Alexandra Penney 

Se nao for o primeiro, 
este vat ser o ultimo 
e definitivo guia para 
o prazer que o lei tor 
podera seguir: um livro 
que derruba mitos, faz 
sugestoes provocantes e 
propoe tecnicas ousadas 
para se chegar ao 
supersexo, uma relacao 
intensa e especial entre 
os casais, que nao 
exclui o romantismo. 



Nao perca tambem: A MISSAO, de Robert Bolt, o livro do filme. 
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